Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2368 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【68470】excel関数をVBAで使いたいのですが ヒロズ 11/3/9(水) 13:24 質問[未読]
【68471】Re:excel関数をVBAで使いたいのですが Jaka 11/3/9(水) 13:41 発言[未読]
【68470】excel関数をVBAで使いたいのですが
質問  ヒロズ  - 11/3/9(水) 13:24 -
引用なし
パスワード
   Excel関数をVBAで使いたいのですが
1.は正常に動くのですが
2.はMatchの所でﾒｯｾｲｼﾞが出てしまいます。
どうすればよいのかお知恵授けてください

sub　AA()　
Dim　RangeAA
Dim myRange As Range

XX = Sheets("ﾃﾞｰﾀ").Range("A65536").End(xlUp).Row

1.RangeAA = "=if(E15=0,,Match(E15,'ﾃﾞｰﾀ'!C1:C" & XX & ",0))"
　Range("h16") = RangeAA

2.myRange = Application.WorksheetFunction. _
　　　　　　 if(E15 = 0, , Match(E15, Sheets("ﾃﾞｰﾀ").Range("C1:C"" & XX _　　　　　　　　& ", 0)))
　Range("H16") = myRange
end　sub
【68471】Re:excel関数をVBAで使いたいのですが
発言  Jaka  - 11/3/9(水) 13:41 -
引用なし
パスワード
   >2.myRange = Application.WorksheetFunction. _
>　　　　　　 if(E15 = 0, , Match(E15, Sheets("ﾃﾞｰﾀ").Range("C1:C"" & XX _　>　　　　　　　& ", 0)))

↑これは、なんて言ったらいいのか考えてしまいますね。
↓大体こんな感じ。

If range("E15").Value = 0 Then
　 変数 = Application.Match(Range("E15").Value,Sheets("ﾃﾞｰﾀ").Range("C1:C" & XX),0)
End If
If isError(変数) = True Then

End if
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2368 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free