《VBA・CSS》入門実用Tips集 ＋α
メニュー一覧 HOME 　エクセルVBA 　　●セルの操作● 　　1-1 ｾﾙ等の選択 　　　Activate 　　　Select 　　1-2 ｾﾙのｺﾋﾟｰ 　　　Copy 　　1-3 ｾﾙにﾍﾟｰｽﾄ 　　　Paste 　　1-4 変数に値を代入 　　　Value 　　　Text 　　1-5 ｾﾙに値を代入 　　　Value 　　　Text 　wwwcount改造 　CSS(ｽﾀｲﾙｼｰﾄ)基本 　BiglobeﾌﾞﾛｸﾞCSS 　CSSいろいろﾘﾌｧﾚﾝｽ 　HTML基本 　HTML簡易ﾘﾌｧﾚﾝｽ	Home > エクセルVBA > 1-1〜1-5　セルの操作 ● セルの操作 基本的な命令や、よく使う命令を集めてみました。 カット＆ペーストで使っていただければと思います。 [文字の説明] str：文字　i：数値　　このブック：命令を記述したブック test.xls：命令を記述したブック 1-1 　ブック、シート、セルを選択する Workbooks("test.xls").Activate　　　　　　　　　　　　　　　　　　　　　　　　　　　'指定ブックをアクティブにする Workbooks("test.xls").Worksheets("Sheet2").Activate　　　　　　　　　　　'指定ブックの指定シートをアクティブにする Workbooks("test.xls").Worksheets("Sheet1").Range("A1").Select　　　　　　'A1セルを選択する。 Workbooks("test.xls").Worksheets("Sheet1").Cells(1, 2).Select　　　　　　　'B1セルを選択する。 Workbooks("test.xls").Worksheets("Sheet1").Range("A1:C100").Select　　'A1〜C100セルの範囲を選択する。 ActiveWorkbook.Worksheets("Sheet2").Activate　　　　　　　　'現在アクティブなブックの指定シートをアクティブにする Worksheets("Sheet2").Activate　　　　　　　　　　　　　　　　　　　　'現在アクティブなブックの指定シートをアクティブにする ActiveWorkbook.ActiveSheet.Cells(1, 2).Select　　　　　　　　　'現在アクティブなシートのB1セルを選択する。 Cells(1, 2).Select　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'現在アクティブなシートのB1セルを選択する。 1-2 　セルをコピーする ActiveWorkbook.Worksheets("Sheet1").Range("A1").Copy　　　　　　　　　　'A1セルをコピーする。 Workbooks("test.xls").Worksheets("Sheet1").Cells(1, 1).Copy　　　　　　　　'A1セルをコピーする。 Workbooks("test.xls").Worksheets("Sheet1").Range("A1:C100").Copy　　　　'A1〜C100セルの範囲をコピーする。 Workbooks("test.xls").Worksheets("Sheet1").Range(Cells(1, 1), Cells(100, 3)).Copy　　'A1〜C100セルの範囲をコピーする。 Workbooks("test.xls").Worksheets("Sheet1").Range("A1").Copy　　　　　　'A1セルをコピーする。 Workbooks("test.xls").Worksheets("Sheet1").Cells(1, 1).Copy　　　　　　　　'A1セルをコピーする。 1-3 　コピーしたものをペーストする 　　ペーストするセルを選択したあと、ペーストする Workbooks("test.xls").Worksheets("Sheet1").Select　　　　　　　　　　　　　'ペーストするシートを選択 Range("B1").PasteSpecial xlPasteAll　　　　　　　　　　　　　　　　　　　　　　　　'B1セルにペースト Workbooks("test.xls").Worksheets("Sheet1").Range("B1").Select　　　　'ペーストするセル(B1)を選択 Paste　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'ペースト Workbooks("test.xls").Worksheets("Sheet1").Cells(1, 2).Select　　　　　　'ペーストするセル(B1)を選択 Paste　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　'ペースト 1-4 　変数<-セル　値の代入 i　=　Workbooks("test.xls").Worksheets("Sheet1").Range("A1").Value　　　'セル(A1)の値を変数に代入する(数値、文字) str　=　Workbooks("test.xls").Worksheets("Sheet1").Range("A1").Text　　　'セル(A1)の値を変数に代入する(文字) i　=　Workbooks("test.xls").Worksheets("Sheet1").Cells(2, 1).Value　　　'セル(A2)の値を変数に代入する(数値、文字) 1-5 　セル<-変数　値の代入 Workbooks("test.xls").Worksheets("Sheet1").Range("A1").Value　=　i　　　　　　'セル(A1)の値を変数に代入する(数値、文字) Workbooks("test.xls").Worksheets("Sheet1").Range("A1").Text　=　str　　　　　　'セル(A1)の値を変数に代入する(文字) Workbooks("test.xls").Worksheets("Sheet1").Cells(2, 1).Value　=　i　　　　　　'セル(A2)の値を変数に代入する(数値、文字) Workbooks("test.xls").Worksheets("Sheet1").Range("A1:C100").Value　=　150　　　'セルの指定範囲に値を代入する(数値、文字) Workbooks("test.xls").Worksheets("Sheet1").Range(Cells(1, 1), Cells(100, 3)).Value　=　150　'セルの指定範囲に値を代入する(数値、文字)  このページのトップへ