シートを並べ替えるExcelマクロ:エクセルマクロ・Excel VBAの使い方/Sheets・Worksheet
よく出る要望ではありますが、残念ながらExcelの標準機能にはないので、VBA（Visual Basic for Applications）でマクロを作りましょう。 Sub シートをシート名の昇順で並び替える() Dim s1 As Long Dim s2 As Long For s1 = 1 To Sheets.Count For s2 = 1 To Sheets.Count - 1 If Sheets(s2).Name > Sheets(s2 + 1).Name Then Sheets(s2).Move After:=Sheets(s2 + 1) End If Next s2 Next s1 End Sub 上記のSubプロシージャを、VBE（Visual Basic Editor）を起動して標準モジュールに貼り付け、シートを並び替えたいブックがアクティブな状態でSortSheetsマ
Office TANAKA - Excel VBA Tips[ブック・シートが存在するか調べる]
サイトをご覧になった方からリクエストをいただきました。「特定のブックを開いているか、どうやってチェックしたらいいですか？」と。また、別の方から「'合計'という名前のシートがあるかどうか調べたい」というメールもちょうだいしました。これらは同じ考え方で実現できますので、一緒に解説しましょう。 ブックが開いているか調べる このテクニックは、実は「ファイルの操作」の「現在開いているブックの一覧を取得する」で解説しています。念のため同じコードを再度ご紹介します。 Sub Sample01() Dim wb As Workbook, flag As Boolean For Each wb In Workbooks If wb.Name = "Book1.xlsx" Then flag = True Next wb If flag = True Then MsgBox "Book1 を開いています。",
VBAブック制御
３．ブック・シートの制御 ３ー１ブックをチェックしオープン又はアクティブ化 Const fil2 As String = "b:\VBA雑\小文字.xls" Const fil2a As String = "小文字.xls" Sub 例31() fila = 0 For Each file_name In Windows If file_name.Caption = fil2a Then Windows(fil2a).Activate fila = 1 End If Next If fila = 0 Then Workbooks.Open Filename:=fil2 End If End Sub ・このプログラムでは定数を使用しファイル名を入れているが、システムに合わせ変更する。 ・Ｆｏｒｅ ＥａｃｈでＥｘｃｅｌでオープンされているウインドウを調べ
画像ファイルを挿入する：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
次のサンプル1は画像をリンク貼り付けします。 ●サンプル1● Sub AddPictureSampLinkPaste() Dim myFileName As String Dim myShape As Shape myFileName = ActiveWorkbook.Path & "\mogtan.gif" '--(1) 選択位置に画像ファイルを挿入し、変数myShapeに格納 Set myShape = ActiveSheet.Shapes.AddPicture( _ Filename:=myFileName, _ LinkToFile:=True, _ SaveWithDocument:=False, _ Left:=Selection.Left, _ Top:=Selection.Top, _ Width:=0, _ Height:=0) '--(2) 挿入した画像に対して元画像と
MS Access VBA モジュール集(HTTPにてデータのやり取り) -- Key：雑学事典
解説 HTTPにてGET及びPOSTを行う方法。レスポンスは下記サンプルではbufに格納される。 ソース Dim Http Dim buf As String Dim targetURI As String 'POSTサンプル targetURI = "http://sample.com/piyo.cgi" Set Http = CreateObject("MSXML2.XMLHTTP") Http.Open "POST", targetURI, False Http.send "piyo=hoge&hoge=piyo" buf = StrConv(Http.ResponseBody, vbUnicode) Set Http = Nothing 'GETサンプル targetURI = "http://sample.com/piyo.cgi?id=" & text_id & "&pw="
シートのデータを別のシートにコピーする - アプリケーションとしてのVBA
◆シートのデータを別のシートにコピーする VBA で作成するマクロは、Excel の表の操作が主体になります。 セルの操作が main ですが、表の一部を別のシートにコピーすることも良くあります。 まとめてコピーする方法の説明です。 Sheet1 から Sheet2 へのコピーを、マクロ記録させると、 こんな感じでしょうか。 Sub test1() Sheets(1).Select Range("B3:G7").Select Selection.Copy Sheets(2).Select Range("B3:G7").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub これで十分動作するのですが、ループの中で動作させると、シートの選択を 何回も繰り返すので、画面が頻繁に動いてうざったいです。 スピードも遅くなりま
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Excelマクロ・VBAのお勉強
セル範囲の指定方法:Excel VBA入門