[pear_error: message="Success" code=0 mode=return level=notice prefix="" info=""]
JUGEMテーマ:Office VBA セルの書式設定→表示形式→ユーザー定義→「種類」ボックスに「;;;」(セミコロンを3つ)を入力→OK →セル内を非表示 VLOOKUP(検索値, 範囲, 列番号, FALSE) 検索値:A5 範囲:moto!A4:Z47 列番号「郵便番号」:19 「住所」:24 「名前」:9
ニャン太郎の叫び | 2019.06.04 Tue 15:47
JUGEMテーマ:Office VBA ' 印刷範囲設定解除 PageSetup.PrintArea="" ' 印刷範囲 PageSetup.PrintArea = Range(Cells(3,"A"),Cells(7, retu)).Address PageSetup.PrintArea=”” または false PageSetup.PrintArea=範囲を表す文字列 PageSetup.PrintArea = Range(Cells(3,"A"),Cells(7, retu)).Address→Addressプロパティで範囲の文字列を求めている Rangeオブジェクト.Address $A$1:$D$60という文字列が得られる
ニャン太郎の叫び | 2019.06.03 Mon 22:31
JUGEMテーマ:Office VBA =CONCATENATE(F4,G4,H4) セルの書式設定→表示形式→ユーザー定義→「種類」ボックスに「;;;」(セミコロンを3つ)を入力→OK →セル内を非表示 VLOOKUP(検索値, 範囲, 列番号, FALSE) 検索値:A5 範囲:moto!A4:Z47 列番号「郵便番号」:19
ニャン太郎の叫び | 2019.06.03 Mon 22:21
JUGEMテーマ:Office VBA ' 印刷範囲設定解除 PageSetup.PrintArea="" ' 印刷範囲 PageSetup.PrintArea = Range(Cells(3,"A"),Cells(7, retu)).Address PageSetup.PrintArea=”” または false PageSetup.PrintArea=範囲を表す文字列 PageSetup.PrintArea = Range(Cells(3,"A"),Cells(7, retu)).Address→Addressプロパティで範囲の文字列を求めている Rangeオブジェクト.Address $A$1:$D$60という文字列が得られる
ニャン太郎の叫び | 2019.06.02 Sun 18:05
JUGEMテーマ:Office VBA ' 罫線引き retu = Range("A3").End(xlToRight).Column With Range(Cells(3, "A"), Cells(7, retu)) .Borders(xlEdgeRight).LineStyle = xlDash .Borders(xlInsideVertical).LineStyle = xlDash .Borders(xlEdgeLeft).LineStyle = xlDash End With Range(Cells(3, "A"), Cells(7, retu))→文字が入っている範囲 変数を入力 Vertical→垂直の Dash→破線
ニャン太郎の叫び | 2019.06.01 Sat 17:13
JUGEMテーマ:Office VBA Range("A1").Clear →書式や文字サイズ等すべて消される Range("A3:ag6").Value = "" →データだけが消される Range("A3:ag6").Borders.LineStyle = xlLineStyleNone →罫線だけが消される Select Case 変数 Case 条件式1 処理1 Case 条件式2 処理2 Case Else &...
ニャン太郎の叫び | 2019.05.31 Fri 17:30
JUGEMテーマ:Office VBA Range("A3:ag6").Value = "" Range("A3:ag6").Borders.LineStyle = xlLineStyleNone Range("a6").Select g = 4 Do Until Worksheets("moto").Cells(g, "i").Value = "" With ActiveCell If Worksheets("moto").Cells(g, "f").Value = _ C...
ニャン太郎の叫び | 2019.05.30 Thu 22:17
JUGEMテーマ:Office VBA Cells(gyou + 1, "w").NumberFormat = "@" Cells(gyou + 1, "w").Value = TextBox3.Text With TextBox3 .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With TextBox2.Text = Cells(gyou + 1, "x").Value Cells(gyou + 1, &q...
ニャン太郎の叫び | 2019.05.27 Mon 22:42
Private Sub CommandButton3_Click() Cells(gyou + 1, "w").NumberFormatLocal = "@" Cells(gyou + 1, "w").Value = TextBox3.Text With TextBox3 .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With TextBox2.Text = Cells(gyou + 1, "x").Value
ニャン太郎の叫び | 2019.05.26 Sun 17:52
全146件中 31 - 40 件表示 (4/15 ページ)