Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13171 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6696】VLOOKUPについて maeda 03/7/25(金) 12:11 質問
【6697】Re:VLOOKUPについて Jaka 03/7/25(金) 12:44 回答
【6699】Re:VLOOKUPについて maeda 03/7/25(金) 13:16 お礼
【6696】VLOOKUPについて
質問  maeda E-MAIL  - 03/7/25(金) 12:11 -
引用なし
パスワード
   ワークシートのセルAJ3に次の計算式を入れています。

=IF(OR(C3="a",C3="b",C3="c"),VLOOKUP(C$1,$AA$3:$AH$100,8,FALSE)
,IF(C3>0,VLOOKUP(C$1,$AA$3:$AH$100,8,FALSE)+(VLOOKUP(C$1,$AA$3:$AH$100,3,FALSE)*C3),""))　

この計算結果をVBAで処理しようと作成中ですが上手く行きません、ワークシート関数を使用した場合の処理とうがまずいのでしょうか、ご指導ください。


　　'給与の計算
　　Set JYUGYOIN = Worksheets("出勤").Range("$AA$3:$AH$100")
　　With Worksheets("出勤")


　　Select Case .Range("C3")
　　　　Case Is = "a"
　　　　　　.aj3 = WorksheetFunction.VLookup(.C1, JYUGYOIN, 8, False)
　　End Select
　　End With
【6697】Re:VLOOKUPについて
回答  Jaka  - 03/7/25(金) 12:44 -
引用なし
パスワード
   こんにちは。
こうなんじゃないかなぁ〜？

>　　　　　　.aj3 = WorksheetFunction.VLookup(.C1, JYUGYOIN, 8, False)
　　　↓
.range("aj3").value = WorksheetFunction.VLookup(.range("C1").value, JYUGYOIN, 8, False)
【6699】Re:VLOOKUPについて
お礼  maeda E-MAIL  - 03/7/25(金) 13:16 -
引用なし
パスワード
   ▼Jaka さん：
>こんにちは。
>こうなんじゃないかなぁ〜？
>
>>　　　　　　.aj3 = WorksheetFunction.VLookup(.C1, JYUGYOIN, 8, False)
>　　　↓
>.range("aj3").value = WorksheetFunction.VLookup(.range("C1").value, JYUGYOIN, 8, False)


ありがとうございました、構文を、あせらずに、きちんと書かないといけないですね。
気をつけます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13171 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free