No.1ベストアンサー
- 回答日時:
こんにちは。
元のコードがなくては、よく分かりませんが、こういうことでしょうか?
'サンプルコード
'可視セルを順番に取得しているはずです。
Sub test1()
Dim myRows As String, c As Range
Dim Rng As Range
On Error GoTo 0
'1番上をフィールド名(項目行)だとしたら
Set Rng = Range("A2", Range("A2").End(xlDown)).SpecialCells(xlCellTypeVisible)
On Error Resume Next
For Each c In Rng.Cells
myRows = myRows & "," & c.Row
Next
MsgBox Mid$(myRows, 2)
End Sub
早速の回答ありがとうございます。
元のコードを載せていなくてすみません。
今回は、以下のようにコードを書いています。
Public myClass1 As New Class1
Public Sub InitializeChart()
Set myClass1.myChartClass = Worksheets(1).ChartObjects("Test").Chart
End Sub
クラスモジュール(Class1)
Public WithEvents myChartClass As Chart
Private Sub myChartClass_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
Dim ElemID As Long, Arg1 As Long, Arg2 As Long
Dim Var, XVar, YVar, MyRow As Variant
ActiveChart.GetChartElement X, Y, ElemID, Arg1, Arg2
Select Case ElemID
Case xlSeries
Range("A2:A10").Select
Selection.SpecialCells(xlCellTypeVisible).Select
With ActiveSheet.UsedRange
MyRow = .Resize(.Rows.Count).Offset(Arg2 + 1) _
.SpecialCells(xlCellTypeVisible).Row
End With
End Select
End Sub
で、「MyRow」で取得した行番号を利用していました。
OffsetやCellsを利用していては無理ですよね。
回答を参考に可視セルのみから何番目というのが取得できるようになり解決しました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) substitute関数についての質問です 3 2023/06/21 11:57
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- ポイントサービス・マイル E-TAXについて 2 2023/02/12 16:18
- オープンソース Python openpyxlを使用したセル番地の使用について 1 2023/08/03 22:05
- Visual Basic(VBA) VBAでPDFのアクティブページ番号取得 1 2023/05/25 12:41
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- Oracle 質問です。 下記のテーブルとデータがあり、 取得想定結果のように出力したいです。 下記のsqlだと0 2 2023/05/23 19:10
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
- 確定申告 確定申告自体が初めてのE-TAXについて 4 2023/02/12 19:32
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
Offsetで可視セルだけを移動したい。
Excel(エクセル)
-
EXCELのVBA-フィルタ抽出後のセル選択方法
Visual Basic(VBA)
-
-
4
Excelのフィルター後の一番上のセルをコピーする(マクロ教えて。) Excelで5行目にフィルター
Excel(エクセル)
-
5
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
6
表にフィルターをかけ、絞ったデータ(可視化セルのみ)を一次元配列として変数に入れるという動作を書きた
Visual Basic(VBA)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
オートフィルタをマクロで作成したときに列番号ではなく文字で判別させたい
Visual Basic(VBA)
-
9
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
10
EXCELのVBAで作業ファイルを閉じてもメモリの解放をしなくて困っています
Excel(エクセル)
-
11
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
12
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
13
Excelのオートフィルタで抽出したものを配列で取得したい
Excel(エクセル)
-
14
sumproductの計算式で「エラー2015」(ローカルウィンドウにて)が表示(Excel2007、2003)
その他(Microsoft Office)
-
15
エクセルファイルのシート毎の容量
Excel(エクセル)
-
16
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
17
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
18
複数指定セルの可視セルのみを別シートに転記するVBAについて
Visual Basic(VBA)
-
19
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでTIFF画像を読み込むには?
-
ActiveWorkbook.Pathの一つ下の...
-
ActiveReportのDataSourceについて
-
アクセスしたユーザーの地域(...
-
Excelで可視セルの行番号取得
-
strutsで空白を認識させるには?
-
java → jsp コンボボックス表示...
-
登録済みイベントリスナーの情...
-
EXCELのメニュー操作アプリ(C#)
-
javascriptでローカルフォルダ...
-
Formatでmmが月と分を意味する理由
-
Goole Mapsのマイマップで出力...
-
漢字読み取得方法
-
フォーム上で押されたボタンに...
-
リクエストに応じたselectedの...
-
Java-jspの画面入力値保持について
-
webアプリを作ってます。エラー...
-
「<c:forEach タグが終了し...
-
三菱GOTの画面切り替えについて
-
jspからServletを呼び、元のjsp...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ActiveWorkbook.Pathの一つ下の...
-
登録済みイベントリスナーの情...
-
EXCEL VBAで、EXCELの入力規則...
-
ActiveReportのDataSourceについて
-
Excelで可視セルの行番号取得
-
VBAでTIFF画像を読み込むには?
-
Formatでmmが月と分を意味する理由
-
javascriptでローカルフォルダ...
-
指定地点(緯度・経度)から指定...
-
漢字読み取得方法
-
strutsで空白を認識させるには?
-
Spreadでの複数行選択
-
jsp 動的テーブルについて
-
スプレッドのアクティブセルの...
-
vbaで、オートシェイプ文字列、...
-
javascriptでIMEの状態を取得
-
vb上で実行させたコマンドに変...
-
MultipartRequestWrapperについて
-
ドラッグ&ドロップについて
-
VB.netのDataGridViewについて
おすすめ情報