プログラミング学習メモ -7ページ目

プログラミング学習メモ -7ページ目

ホームピグアメブロ

芸能人ブログ人気ブログ

02Jul
- VBA　オートフィルタで表をソートする
  オートフィルタで表をソートするSub test() '　オートフィルタで表をソートする Range("A1").AutoFilter With ActiveSheet.AutoFilter.Sort With .SortFields .Clear　'　ソートキーを削除 '昇順にソート .Add Key:=Range("E1"), Order:=xlAscending End With .Apply End WithEnd Sub降順にするには、「Order:=xlDescending」にすれば良いです。実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA データの操作　オートフィルター』膨大なデータを絞り込む時、実務ではオートフィルターが重宝されます。今日は、VBAからオートフィルターの基本を見てみましょう。オートフィルターの設定構文Ra…ameblo.jp『VBA オートフィルター　データが絞り込んでいるか判断方法』実務では、オートフィルターは、データ分析のツールとして重宝されています。今日は、データが絞り込んでいるかについて、その確認方法をみてみましょう。データが絞り…ameblo.jp『VBA　フィルターで特定文字を含むデータを抽出』フィルターで特定文字を含むデータを抽出Sub test() ’　名前に田を含むものを絞り込む Range("A1").AutoFilt…ameblo.jp『VBA 色で絞り込む方法』実務では、大量のデータを絞り込むには、オートフィルタがとても便利です。今日は、色で絞り込む方法を見てみましょう。セル背景色で絞り込む構文Range.…ameblo.jp『VBA 最終行・列の取得』For文を使う際、最終行を自動取得できたら、毎回いちいち画面で確認必要がなくなります。今日は、最終行・列の自動取得方法を見てみましょう。最終行（.End(x…ameblo.jp『VBA　セルに数式を入力・取得』セルに数式を入力するValueプロパティによる設定Sub test1() Range("G3").Value = "=SUM(B3:F3)"…ameblo.jp『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
25Jun
- VBA　ループで頭２文字を一括削除
  ループで頭２文字を削除Sub test() '　ループで頭２文字を一括削除 Dim i As Long Dim x As Long For i = 3 To 10 ' 対象セルの文字数を取得 x = Len(Cells(i, "A")) '　2文字取り除いたものを取得 Cells(i, "C") = Right(Cells(i, "A"), x - 2) NextEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA 複数列に数式をまとめて入力』よくある生徒の5科目成績計算用の表ですが、合計点、平均点、順位を一遍に入力する方法を紹介します。複数列に数式をまとめて入力合計点G3に入力する数式　＝S…ameblo.jp『VBA　配列数式の入力』配列数式の入力Sub test1() '　各行の金額 Range("D4:D23") = "=C4*B4" '　配列数式による…ameblo.jp『VBA　セル数式のコピペ』セル数式のコピペ　絶対参照Sub test1()’　セル数式のコピペ Range("D4") = "=C4*B4" ' 絶対参照　D4と同…ameblo.jp『VBA 最終行・列の取得』For文を使う際、最終行を自動取得できたら、毎回いちいち画面で確認必要がなくなります。今日は、最終行・列の自動取得方法を見てみましょう。最終行（.End(x…ameblo.jp『VBA　セルに数式を入力・取得』セルに数式を入力するValueプロパティによる設定Sub test1() Range("G3").Value = "=SUM(B3:F3)"…ameblo.jp『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
18Jun
- VBA　Shapeでアクティブセルに丸をつける
  Shapeでアクティブセルに丸をつけるSub test() '　Shapeでアクティブセルに丸をつける Dim c As Range Dim WS As Worksheet Set WS = ActiveSheet Set c = ActiveCell With WS.Shapes.AddShape(msoShapeOval, _ c.Left, c.Top, c.Width, c.Height) .Fill.Visible = False　　 .Line.ForeColor.RGB = RGB(0, 0, 255) End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　Shapeを使って矢印付き線を引く』Shapeを使って線を引くSub test() '　Shapeを使って線を引く Dim rngStart As Range, rngEnd …ameblo.jp『VBA　シェイプを一括削除』シェイプを一括削除Sub test()　　’　シート上のシェイプを一括削除 ActiveSheet.DrawingObjects.Delete…ameblo.jp『VBA セルの背景色（RGB）を取得する』　　RGBとは、色の表現方式の一つで、赤（Red）、緑（Green）、青（Blue）の配合比率を変化させて、すべての色を表現する方式です。Excelでは、RG…ameblo.jp『VBA セルの操作背景色の設定』背景色の設定Sub test() ’　 A1を赤塗にする（ColorIndex） Range("A1").Interior.ColorIndex…ameblo.jp『VBA 最終行・列の取得』For文を使う際、最終行を自動取得できたら、毎回いちいち画面で確認必要がなくなります。今日は、最終行・列の自動取得方法を見てみましょう。最終行（.End(x…ameblo.jp
11Jun
- VBA　Shapeを使って矢印付き線を引く
  Shapeを使って線を引くSub test() '　Shapeを使って線を引く Dim rngStart As Range, rngEnd As Range Dim BX As Single, BY As Single, EX As Single, EY As Single ' 線(shape)配置基準セル Set rngStart = Range("B5") Set rngEnd = Range("F5") ' セルのLeft、Top、Widthプロパティを利用して位置特定 BX = rngStart.Left BY = rngStart.Top EX = rngEnd.Left + rngEnd.Width EY = rngEnd.Top ' 直線 ActiveSheet.Shapes.AddLine BX, BY + 10, EX, EY +10End SubSub test2() '　Shapeを使って矢印付き線を引く Dim rngStart As Range, rngEnd As Range Dim BX As Single, BY As Single, EX As Single, EY As Single ' 線(shape)配置基準セル Set rngStart = Range("B5") Set rngEnd = Range("F6") ' セルのLeft、Top、Widthプロパティを利用して位置特定 BX = rngStart.Left BY = rngStart.Top EX = rngEnd.Left + rngEnd.Width EY = rngEnd.Top ' 矢印つき線（赤色・太さ1.5ポイント） With ActiveSheet.Shapes.AddLine(BX, BY + 20, EX, EY + 20).Line .ForeColor.RGB = vbRed .Weight = 1.5 .EndArrowheadStyle = msoArrowheadTriangle End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　シェイプを一括削除』シェイプを一括削除Sub test()　　’　シート上のシェイプを一括削除 ActiveSheet.DrawingObjects.Delete…ameblo.jp『VBA 複数列に数式をまとめて入力』よくある生徒の5科目成績計算用の表ですが、合計点、平均点、順位を一遍に入力する方法を紹介します。複数列に数式をまとめて入力合計点G3に入力する数式　＝S…ameblo.jp『VBA　配列数式の入力』配列数式の入力Sub test1() '　各行の金額 Range("D4:D23") = "=C4*B4" '　配列数式による…ameblo.jp『VBA　セル数式のコピペ』セル数式のコピペ　絶対参照Sub test1()’　セル数式のコピペ Range("D4") = "=C4*B4" ' 絶対参照　D4と同…ameblo.jp『VBA 最終行・列の取得』For文を使う際、最終行を自動取得できたら、毎回いちいち画面で確認必要がなくなります。今日は、最終行・列の自動取得方法を見てみましょう。最終行（.End(x…ameblo.jp『VBA　セルに数式を入力・取得』セルに数式を入力するValueプロパティによる設定Sub test1() Range("G3").Value = "=SUM(B3:F3)"…ameblo.jp『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
04Jun
- VBA　ループのなか数式を入れる
  ループのなか特定セルに数式を入れるSub test() '　ループのなか特定セルに数字を入れる Dim i As Long Dim myMaxR As Long With Sheets(1) myMaxR = .Cells(.Rows.Count, "A").End(xlUp).Row '最終行 For i = 2 To myMaxR　　　　　　　’　B列が数字のときのみ下記数式を入れる If IsNumeric(.Cells(i, "B")) Then .Range("F" & i).FormulaR1C1 = "=Round(RC[-3]*RC[-4],0)" End If Next i End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA 複数列に数式をまとめて入力』よくある生徒の5科目成績計算用の表ですが、合計点、平均点、順位を一遍に入力する方法を紹介します。複数列に数式をまとめて入力合計点G3に入力する数式　＝S…ameblo.jp『VBA　配列数式の入力』配列数式の入力Sub test1() '　各行の金額 Range("D4:D23") = "=C4*B4" '　配列数式による…ameblo.jp『VBA　セル数式のコピペ』セル数式のコピペ　絶対参照Sub test1()’　セル数式のコピペ Range("D4") = "=C4*B4" ' 絶対参照　D4と同…ameblo.jp『VBA 最終行・列の取得』For文を使う際、最終行を自動取得できたら、毎回いちいち画面で確認必要がなくなります。今日は、最終行・列の自動取得方法を見てみましょう。最終行（.End(x…ameblo.jp『VBA　セルに数式を入力・取得』セルに数式を入力するValueプロパティによる設定Sub test1() Range("G3").Value = "=SUM(B3:F3)"…ameblo.jp『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
28May
- VBA　UsedRangeで最終行を特定する
  UsedRangeで最終行を特定するSub test() '　UsedRangeで最終行を特定する With Sheets(1).UsedRange Debug.Print .Rows(.Rows.Count).Row End WithEnd Sub※　UsedRangeとは、Worksheetオブジェクトに対するプロパティです。使用中の左上端セルから右下端セルの範囲を取得します。実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA 最終行・列の取得』For文を使う際、最終行を自動取得できたら、毎回いちいち画面で確認必要がなくなります。今日は、最終行・列の自動取得方法を見てみましょう。最終行（.End(x…ameblo.jp『VBA　セルに数式を入力・取得』セルに数式を入力するValueプロパティによる設定Sub test1() Range("G3").Value = "=SUM(B3:F3)"…ameblo.jp『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
21May
- VBA　OnKeyでマクロをショートカットキーに割り当てる
  ショートカットキーの割り当てSub test1() '　「Ctrl + q」の割り当て Application.OnKey "^q", "myMSG" MsgBox "sub myMSG を　「Ctrl + q」に割り当てました"End SubSub myMSG() '　Ctrl　+q に割り当てる MsgBox "sub myMSG　は、「Ctrl + q」に割り当てています"End Subショートカットキー割り当の解除Sub test2() '　ショートカットキー割り当ての解除　　(引数なしで解除） Application.OnKey "^q" MsgBox "「Ctrl + q」に割り当の解除をしました"End Subショートカットキー「 ^q 」 = (Ctrl + q)主要キー・　Shift：「+」・　Ctrl：「^」・　Alt：「%」― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　セルに数式を入力・取得』セルに数式を入力するValueプロパティによる設定Sub test1() Range("G3").Value = "=SUM(B3:F3)"…ameblo.jp『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
14May
- VBA　配列数式の入力
  配列数式の入力Sub test1() '　各行の金額 Range("D4:D23") = "=C4*B4" '　配列数式による全体合計を取得 Range("D2").FormulaArray = "=SUM(B4:B23*C4:C23)"End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　セルに数式を入力・取得』セルに数式を入力するValueプロパティによる設定Sub test1() Range("G3").Value = "=SUM(B3:F3)"…ameblo.jp『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
07May
- VBA　セル数式のコピペ
  セル数式のコピペ　絶対参照Sub test1()’　セル数式のコピペ Range("D4") = "=C4*B4" ' 絶対参照　D4と同じ数式 Range("D5") = Range("D4").FormulaEnd Sub実行結果セル数式のコピペ　相対参照Sub test1()’　セル数式のコピペ Range("D4") = "=C4*B4" ' 相対参照　D5に適用した数式 Range("D5") = Range("D4").FormulaR1C1End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　セルに数式を入力・取得』セルに数式を入力するValueプロパティによる設定Sub test1() Range("G3").Value = "=SUM(B3:F3)"…ameblo.jp『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
30Apr
- VBA　Space関数で一定数の空白を追加
  Space関数で一定数の空白を追加Sub test1()’　Space関数で一定数の空白を追加　　MsgBox "|" & Space(5) & "|：5スペース分"End Sub構文 Space(数値)実行結果Sub test2()’　Space関数で数字ピラミッド作成 Dim i As Long Dim n As Long Dim xlCnt As Long Dim MyStr As String n = 9 '揃えいたい桁数(9にする For i = 1 To 8 ' 1～８行までループする 'A列の数字の文字数を取得 xlCnt = Len(Cells(i, 1)) 'A列の数値と(9-文字数)分をスペース追加 MyStr = Cells(i, 1) & Space(n - xlCnt) 'セルに出力 Cells(i, 2) = "'" & MyStr Next iEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp