- ベストアンサー
エクセル vba inputbox 行番号の取得
inputboxメソッド（type=8）で、クリックしたセルの行番号を取得する方法を教えてください。 同一日付が複数行にあります。そのうちの１つをクリックしたとき、そのセルの行番号を取得したいのですが。
- kana14
- お礼率98% (158/161)
- その他MS Office製品
- 回答数2
- ありがとう数4
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
例えば次のようにすれば行番号を求めることができますね。 Set myrange = Application.InputBox(prompt:="Sammple", Type:=8) Gyou = myrange.Row
その他の回答 (1)
- KURUMITO
- ベストアンサー率42% (1835/4283)
回答No1です。 Set myrange = Application.InputBox(prompt:="Sammple", Type:=8) Gyou = myrange.Row 上の回答でGyouをAに変えることで変数A が行番号ということになりますね。
お礼
再度のご回答ありがとうございます。
補足
「myrange→日付」「Gyou→行番号」で年月日のセルをクリックすると、「オブジェクトが必要です」のエラーがでるのですが。
関連するQ&A
- Excel VBA Inputbox
Inputbox(Type:=8)表示後、セルをクリックしたら、［ok］ボタンをクリックせずに次の命令に移るようにすることは可能でしょうか。可能でしたら、その方法を教えてください。
- 締切済み
- その他MS Office製品
- Excelで可視セルの行番号取得
Excelでグラフ（散布図）のポイントをクリックしたときに、そのグラフ上の何番目かを所得してレコード情報をフォーム上に表示するように作成しました。 しかし、オートフィルタで絞り込んだ場合には取得した番号と行番号が一致しないので困っています。 そこで質問なのですが １．可視セルの何番目というような取得方法はあるのでしょうか？ ２．それともグラフからポイントの何番目というのではなく、元データの行番号は取得可能でしょうか？ 分かりにくい質問で申し訳ないのですが、よろしくお願いします。
- ベストアンサー
- Visual Basic
- Excel VBAでスクロールバーから行番号を取得
Excelのワークシートの縦のスクロールバーをクリックすると、行番号が表示されますが、これをVBAで同時に取得できませんか。スクロールバーにはイベントがないことは理解していますが…。特定な行が最上位となったとき、固定枠内のセルを書き換えることを考えています。
- 締切済み
- Excel（エクセル）
- エクセルＶＢＡのInputBoxメソッドについて
InputBoxメソッド（Application.InputBox)を組み込んだマクロを一度実行させると、キーボードの矢印キーの操作によるスクロール（カレントセルの移動）ができなくなってしまいます。 対処する方法があれば教えてください。（Excel2000）
- 締切済み
- オフィス系ソフト
- EXCEL、マクロ－改ページ行番号の取得方法を教えてください
EXCELで作成した表を印刷したいのですが、表が縦長で複数ページにわたります。 そこで各ページの下端にそれぞれ罫線を挿入するマクロを書きたいのですが、 改ページ位置の取得方法がわかりません。各ページの上端行でも下端行でも良いので 行番号を取得する方法はないものでしょうか？ どなたかご教授願います。 マクロ全体としては下記を考えています。 1.データの下端行の取得 2.印刷範囲の設定(横１ページ×縦複数ページ) 3.最初の改ページ位置の取得 4.ページ下端セル行の下に罫線を入れる 5.次の改ページ位置の取得 6.以下、データ最下端行まで繰り返し (各行のセルの高さは一定ではないです。)
- ベストアンサー
- Visual Basic
- EXCELの行番号取得について
Ａ列に●がランダムに入っている状態で、1番目に●が入っている行番号、2番目に●が入っている行番号、3番目・4番目・・・の行番号を関数で取得したいのですが、良い方法はありますでしょうか。ご教授下さい。（バージョンはEXCEL2016です） よろしくお願いします。 A列 B列 1 4 ← 1番目の●の行番号 2 6 ← 2番目の●の行番号 3 9 ← 3番目の●の行番号 4 ● 5 6 ● 7 8 9 ●
- ベストアンサー
- Excel（エクセル）
- エクセルVBA Columnプロパティで・・・
エクセル２００２使用です。 FindメソッドでRangeオブジェクトを取得し、Columnプロパティでそのオブジェクトの列番号をを取得し、Columnsプロパティーでその列番号が最後になる複数行を取得して、その取得した範囲の空白セルを削除しようとしています。 Dim findcell as Range Dim cl as String Set findcell = Rows(1).Find(What:="賞") cl = findcell.Column Columns(3:cl).SpecialCell(xlCellTypeBlanks).Delete Columns(3:cl)でエラーとなってしまいます。 Columnsプロパティーで複数行を取得するときは、アルファベットの列番号を指定しなければならないと思うのですが、Columnプロパティーでは、数字で列番号を取得してしまうため困っています。 Columnプロパティーでアルファベットを取得する方法 または Columnsプロパティーで複数行を数字の列番号で取得する方法で何か良い方法はありますでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- excel vba inputbox
初心者です。質問させて下さい。 inputboxでhelpを参照すると、typeの指定は以下ですが、 値 意味 0 数式 1 数値 2 文字列 (テキスト) 4 論理値 (True または False) 8 セル参照 (Range オブジェクト) 16 #N/A などのエラー値 64 数値配列 やはり、図形を選択させる事は不可能でしょうか？ 具体的には、 マクロ実行中にinputboxを表示させて、図形を選択させ、図形名を表示させて、その図形を既定の図形に設定させたいと思っています。 図形を一つ選択した状態ならば、その図形の名前は以下のコードのように取得できるのですが、inputboxでは図形がなぜか選択できないです。 そもそも、inputboxを使用しようと思ったのは、他のコマンドやツール等が非選択状態になること、またマクロ実行の途中で一時中断することができ、これらの条件は便利だし必要だと思ったからです。 inputboxは何かで設定を変える等で図形を選択できるのでしょうか？無理でしょうか？ また、代替的なものは他にあるのでしょうか？ Sub testA() Dim Def As Object Set Def = Excel.Selection If TypeOf Def Is Excel.Rectangle Then MsgBox (Def.Name) End If End Sub 無理な質問かもしれませんが、どなたか御教授お願い致します！
- ベストアンサー
- オフィス系ソフト
- エクセルVBA これってバグ??
エクセルVBAで下記のような文章を作っています。 Dim r As Range On Error Resume Next Set r = Application.InputBox("クリック", "セル", Type:=8) r.EntireRow.Delete これで任意のセルをクリックすると、きちんとそのセルの行がデリートされるのですが、上下にスクロールを一回でもかけると、まったく動いてくれなくなります。 これって解消方法とかありますか??
- ベストアンサー
- その他(ソフトウェア)
- エクセルVBAでの行の取得方法
myrow = Cells(1, 1).Row + 1 などの方法で行を取得するのではなく、 エクセルのセルにある数字、たとえば A1に３、B1に３ で３行目を取得できませんか？ Cellsの括弧の中をValueで指定してもエラーとなります…
- ベストアンサー
- オフィス系ソフト
お礼
早々にご回答いただきましてありがとうございます。
補足
日付の値を取得するために、日付のセルを１回クリックするだけで、例えば変数「Ａ」にクリックしたセルの行番号を取得する方法はありますか。