Excel VBA 入門講座 検索 Find
Sub Search() Dim lngYLine As Long Dim intXLine As Integer Dim Obj As Object Set Obj = Worksheets("Sheet1").Cells.Find("りんご") If Obj Is Nothing Then MsgBox "りんごは見つかりませんでした。" Else lngYLine = Worksheets("Sheet1").Cells.Find("りんご").Row intXLine = Worksheets("Sheet1").Cells.Find("りんご").Column MsgBox "りんごは、" + CStr(lngYLine) + "行目の" _ + CStr(intXLine) + "列目にあります" End If End Sub Sub Search() Dim lngYLine
Excel VBA 入門講座 セルの挿入(範囲・行・列)
引数を指定しない場合【行数 = 列数】の場合は挿入後、下方向にシフトします。 【行数 ＜ 列数】の場合は挿入後、右方向にシフトし、【行数 ＞ 列数】の場合は挿入後、下方向にシフトします。 セルの行または列を選択範囲とする場合、行の場合は挿入後、下方向にシフトし、列の場合は挿入後、右方向にシフトします。 'アクティブなシートのセルB1～D3の範囲の挿入(行数=列数なので下方向にシフト) Sub InsertCell() Range(Cells(1,2),Cells(3,4)).Insert End Sub 'アクティブなシートのセルB1～D3の範囲の挿入(行数>列数なので右方向にシフト) Sub InsertCell() Range("B1:D4").Insert End Sub 'Sheet1のセルB1～D3の範囲の挿入(行数＜列数なので下方向にシフト) Sub InsertCell()
Excel VBA 入門講座 行の指定
引数を指定しない場合、【行数 = 列数】の場合は削除後、上方向にシフトします。 【行数 ＜ 列数】の場合は左方向にシフトし、【行数 ＞ 列数】の場合は削除後、上方向にシフトします。 セルの行または列を選択範囲とする場合、行の場合は削除後、上方向にシフトし、 列の場合は削除後、左方向にシフトします。 'アクティブなシートのセルB1～D3の範囲の削除(行数=列数なので上方向にシフト) Sub DeleteCell() Range(Cells(1,2),Cells(3,4)).Delete End Sub 'アクティブなシートのセルB1～D3の範囲の削除(行数>列数なので左方向にシフト) Sub DeleteCell() Range("B1:D4").Delete End Sub 'Sheet1のセルB1～D3の範囲の削除(行数＜列数なので上方向にシフト) Sub DeleteCell() Wo
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
