投稿

6月, 2020の投稿を表示しています

VBA ボタンのテキストを変更する

Quick Edit Pencil
変更する
ActiveSheet.Buttons(Application.Caller).Text = "ボタンテキスト"

取得する
ActiveSheet.Buttons(Application.Caller).Text


VBA cells セル

Quick Edit Pencil
    Dim ws01, ws02, ws03 As Worksheet   '変数としてWorksheet型で指定します。
    Set ws01 = Worksheets("入力")       'ws01を”Sheet1”変数名として指定。
    Set ws02 = Worksheets("集計")       'ws02を”Sheet2”変数名として指定。
    Set ws03 = Worksheets("グラフデータ")       'ws03を”Sheet3”変数名として指定。

Dim tbl As Range
Set tbl = ws03.Range("A4").CurrentRegion
Set tbl = tbl.Offset(2, 0).Resize(tbl.Rows.Count - 2, tbl.Columns.Count - 0)

Debug.Print "+++++"
Debug.Print "■セルの総数" & tbl.Count

Debug.Print "◆開始セル - A1形式: " & tbl.Item(1).Address & " / R1C1形式: " & tbl.Item(1).Address(ReferenceStyle:=xlR1C1) & " / 行インデックス: " & tbl.Item(1).Row & " / 列インデックス: " & tbl.Item(1).Column
Debug.Print "◆最終セル - A1形式: " & tbl.Item(tbl.Count).Address & " / R1C1形式: " & tbl.Item(tbl.Count).Address(ReferenceStyle:=xlR1C1) & " / 行インデックス: " & tbl.Item(tbl.Count).Row & " / 列インデックス: " & tbl.Item(tbl.Count).Column

Debug.Print "▲範囲行数" & tbl.Rows.Count
Debug.Print "▲範囲列数" & tbl.Columns.Count

Debug.Print "ROW_INDEX        : " & tbl.Item(1).Row 'tbl.Row 同じ
Debug.Print "COLUMN_INDEX     : " & tbl.Item(1).Column 'tbl.Column 同じ
Debug.Print "ROW_INDEX   .END : " & tbl.Item(tbl.Count).Row
Debug.Print "COLUMN_INDEX.END : " & tbl.Item(tbl.Count).Column

Debug.Print ws03.Range(ws03.Cells(tbl.Row, tbl.Column), ws03.Cells(tbl.Item(tbl.Count).Row, tbl.Column)).Address(External:=True)
Debug.Print "軸項目 = " & ws03.Range(ws03.Cells(tbl.Row, tbl.Column), ws03.Cells(tbl.Item(tbl.Count).Row, tbl.Column)).Address(External:=True)
Debug.Print "-----""

イミディエイト
+++++
■セルの総数784
◆開始セル - A1形式: $A$4 / R1C1形式: R4C1 / 行インデックス: 4 / 列インデックス: 1
◆最終セル - A1形式: $BD$17 / R1C1形式: R17C56 / 行インデックス: 17 / 列インデックス: 56
▲範囲行数14
▲範囲列数56
ROW_INDEX        : 4
COLUMN_INDEX     : 1
ROW_INDEX   .END : 17
COLUMN_INDEX.END : 56
'[早朝集計-v10.3.1.8-エクセル2003 (version 1).xls]グラフデータ'!$A$4:$A$17
軸項目 = '[早朝集計-v10.3.1.8-エクセル2003 (version 1).xls]グラフデータ'!$A$4:$A$17
-----