サクサク読めて、アプリ限定の機能も多数!
トップへ戻る
衆院選
www.asahi-net.or.jp/~zn3y-ngi
'================================================================================= Private Sub UserForm_Initialize() 'ユーザーフォームを初期化する 10 For I = 0 To 7 'Iが0から7まで(2行-2から9行-2まで) 20 ComboBox1.AddItem Worksheets("名簿").Cells(I + 2, 2).Value '名簿シートのB列 30 Next '繰り返す End Sub '--------------------------------------------------------------------------------- <コメント> ※1 コンボボックスは、ユーザーフォームに作成する ※2 マクロは、作成したユーザーフ
'--------------------------------------------------------------------------------- Sub グラフを図としてコピーし他のブックへ貼り付ける() Windows("コピー元ブック.xls").Activate '※1 Sheets("グラフ").Select '※1 ActiveSheet.ChartObjects(1).Activate 'ワークシートの埋め込みグラフをアクティブに ActiveChart.ChartArea.Select 'グラフエリアを選択する ActiveChart.CopyPicture Appearance:=xlScreen, _ Size:=xlScreen, Format:=xlPicture '※2 クリップボードへ図としてコピー Windows("貼り付け先ブック.xls"
'================================================================================= Sub セルをコピーする() Range("A1:C3").Copy Range("A4") '※2、3 End Sub '--------------------------------------------------------------------------------- Sub コピーして貼り付ける() Worksheets("SSS").Activate 'ワークシートをアクティブにする ※1 Range("A1:C3").Copy 'コピーする ※2 Range("A4").Select '貼り付け先のセル範囲を選択する ※3 ActiveSheet.Paste '現在の選択範囲に貼り付ける End '--
このサイトの「Excel VBA Macro」コーナーにあるサンプルマクロとFAQの目次です。
'================================================================================= Sub すべてのセルの内容をすべてクリアする() Cells.Clear '※1 Sheets("SSS").Cells.Clear '※2 End Sub '================================================================================= <コメント> ※1 現在アクティブなシートに対して実行される ※2 SSSにはシート名(アクティブでなくても良い)を記入 '================================================================================= Sub 選択されたセル
'================================================================================= Sub 指定条件を満たすセルを選択する() Worksheets("SSS").Activate 'シートをアクティブにする ※1 Range("A1").SpecialCells(xlCellTypeBlanks).Select '空白セル ※2、3 Range("A1").SpecialCells(xlCellTypeVisible).Select '可視セル ※2、3 Range("A1").SpecialCells(xlCellTypeLastCell).Select '最後のセル ※2、3 Range("A1").SpecialCells(xlCellTypeFormulas, 1).Select '数式セル ※2、
'================================================================================= Sub 開始処理() Application.ScreenUpdating = False '0)画面を更新しない ChDrive "C" '1)指定ドライブへ切り替え ※1 ChDir "\" & "FFF" '1)指定フォルダーへ切り替え ※2 Workbooks.Open FILENAME:="BBB" & ".xls" '1)指定されたブックを開く ※3 Sheets("SSS").Select '2)指定されたシートを選択 ※4 Range("A1").Select '3)初期セルを選択する ※5 End Sub '===================================================
'================================================================================= Sub ブックを開く() Workbooks.Open FILENAME:=("BBB.xls") '※1 End Sub '--------------------------------------------------------------------------------- Sub ブックを読み取り専用で開く() Workbooks.Open FILENAME:=("BBB.xls"), ReadOnly:=True '※1 End Sub '--------------------------------------------------------------------------------- Sub
'================================================================================= Sub 折れ線グラフを作成する() シート名 = "SSS" '※1 Set データ範囲 = Worksheets(シート名).Range("A1:D4") '※1 グラフ種類 = xlLineMarkers 'データマーカー付き折れ線 プロット方法 = xlRows グラフ作成場所 = xlLocationAsObject With Charts.Add .ChartType = グラフ種類 .SetSourceData Source:=データ範囲, PlotBy:=プロット方法 .Location Where:=グラフ作成場所, Name:=シート名 End With End Sub '==================
'================================================================================= Sub 選択したシートを印刷する() 部数 = 1 '印刷部数を指定する ※1 Sheets("SSS").PrintOut Copies:=部数 '指定部数を印刷する ※2 End Sub '--------------------------------------------------------------------------------- Sub アクティブシートを印刷する() ActiveSheets.PrintOut '印刷する(1部) End Sub '-----------------------------------------------------------------------------
'--------------------------------------------------------------------------------- Sub IfThenElseで条件に応じて処理する() If Range("E9") = 4 Then '※2 4月なら 月別処理4 '※3 ElseIf Range("E9") = 5 Then '※2 5月なら 月別処理5 ElseIf Range("E9") = 6 Then '※2 6月なら 月別処理6 Else 'その他なら 月別処理その他 End If End Sub '--------------------------------------------------------------------------------- <コメント> ※1 この例では、If~Then~Elseを使って月を調べているが、月
★お願い★ Excel 2010~2002(各32bit版)で動作確認してます。 環境の違い等、 様々な要因により不具合が発生しないか、 注意してご使用ください。 なお、Microsoft社とは無関係です。 そちらへのご質問はご遠慮を! このマクロ集には著作権があります。あなたのお仕事に個人的に利用 する場合を除き、無断で転載、配布等できません。
'================================================================================= Sub セルを挿入する() 基準セル = "B3" '※1 Range(基準セル).Insert Shift:=xlShiftDown '※2 End Sub '--------------------------------------------------------------------------------- Sub セルを削除する() 基準セル = "B3" '※1 Range(基準セル).Delete Shift:=xlShiftUp '※2 End Sub '===========================================================================
このページを最初にブックマークしてみませんか?
『エクセルVBAマクロ集』の新着エントリーを見る
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く