エクセルの学校：全文検索：Hyper Estraier：マクロ

Results of 1 - 1 of about 27304 for マクロ (0.014 sec.)

[[20090718204859]]: #score: 2167; @digest: 1ba60a8ceb37fa49cf4790b762ae68e8; @id: 44580; @mdate: 2009-07-18T13:06:15Z; @size: 2361; @type: text/plain; #keywords: 動0 (27823), 行動 (16587), 動3 (15682), 動1 (10224), 名' (7339), ロ名 (7283), 決行 (6235), 名el (5627), 動2 (3175), 単体 (2307), 行() (2179), （内 (1634), case (1459), 力済 (1452), ー' (1430), ー& (1305), call (1297), 起動 (1015), マク (955), 行番 (942), 、ca (922), クロ (859), 時エ (825), 行時 (715), 面白 (698), 一致 (593), と動 (589), 実行 (579), 型が (573), 成功 (571), ロ実 (501), select (488); 『VBAがうまく起動しません』（PAT）
A1〜A3のどこかのセルに入力されていたら、それぞれに定めたマクロが起動する様にしたく調べていたら下記のような例をみつけました。しかしながら、実行すると、実行時エラー'13': 型が一致しませんと出てしまいます。なんとか成功させたいのですが原因わかりませんか? 行動0〜行動3（単体で起動すると動きます）のマクロには入力済みです。（内容はコピー&ペーストです） Sub マクロ実行() Dim R As Range Set R = Range("A1:A3").Find("*") If R Is Nothing Then Call 行動0 'マクロ名 Else Select Case R.Row Case "A1" Call 行動1 'マクロ名 Case "A21" Call 行動2 'マクロ名 Case "A3" Call 行動3 'マクロ名 End Select End If End Sub ---- こんにちは。かみちゃんです。 > 実行すると、実行時エラー'13': 型が一致しませんと出てしまいます。提示されたマクロだけではそのような事象にはならないように思います。以下のマクロを試してみてください。 Sub Test() Dim R As Range Set R = Range("A1:A3").Find("*") If R Is Nothing Then MsgBox "セルが見つかりません" ' Call 行動0 'マクロ名 Else MsgBox "セルが見つかりました" ' Select Case R.Row ' Case "A1" ' Call 行動1 'マクロ名 ' Case "A21" ' Call 行動2 'マクロ名 ' Case "A3" ' Call 行動3 'マクロ名 ' Case Else ' MsgBox "マクロは実行しません" ' End Select End If End Sub > 行動0〜行動3（単体で起動すると動きます）のマクロには入力済みです。（内容はコピー&ペーストです）この中のコードでエラーになっているのではないでしょうか? あと、 Select Case R.Row で処理分岐していますが、R.Rowの戻り値は、行番号ですから、1、2、3のいずれかだと思いますので、 Case "A1"、Case "A2"、Case "A3" のいずれにも一致しないと思います。 (かみちゃん) 2009/07/18 21:04 ---- ＞Select Case R.Row ‾‾‾‾ 行番号で場合を分けるのに Case "A1" Case "A21" Case "A3" っておかしくないです? セル番地を確認するなら Address(0,0)でしょうし行番号で決行するなら、1,2,3・・・ですよね? (HANA) ---- かみちゃんさん、HANAさんありがとうございます。ご指摘どおり Case1 Case2 Case3 で動きました。ちょっとずつVBAがわかってき、今、勉強するのが面白いところです。この壁に当たって危うくいやになる可能性があったので感謝してます。本当にありがとうございました。（PAT） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200907/20090718204859.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ