Excel VBA質問箱 IV

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

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


59997 / 76738 ←次へ | 前へ→

【21395】Re:コード化してください
回答  G-Luck  - 05/1/20(木) 15:31 -

引用なし
パスワード
   二つ例を示します。
こんな感じでしょうか?
bufに値が入ります。

Private Sub ss()
  Dim buf

  If Worksheets("Sheet1").Range("A1") = "大" Then
    buf = 5
  Else
    If Worksheets("Sheet2").Range("A1") = "小" Then
      buf = 1
    Else
      buf = 3
    End If
  End If
  
End Sub

Private Sub aa()
  Dim buf
  buf = IIf(Worksheets("Sheet1").Range("A1") = "大", 5, IIf(Worksheets("Sheet2").Range("A1") = "小", 1, 3))
End Sub

0 hits

【21388】コード化してください !超初心者! 05/1/20(木) 15:14 質問
【21391】Re:コード化してください IROC 05/1/20(木) 15:20 回答
【21394】Re:コード化してください !超初心者! 05/1/20(木) 15:28 回答
【21392】Re:コード化してください でれすけ 05/1/20(木) 15:24 回答
【21396】Re:コード化してください !超初心者! 05/1/20(木) 15:31 発言
【21398】Re:コード化してください IROC 05/1/20(木) 15:36 回答
【21395】Re:コード化してください G-Luck 05/1/20(木) 15:31 回答
【21404】Re:コード化してください !超初心者! 05/1/20(木) 15:57 質問
【21406】Re:コード化してください G-Luck 05/1/20(木) 16:11 回答
【21407】Re:コード化してください IROC 05/1/20(木) 16:32 回答
【21408】Re:コード化してください G-Luck 05/1/20(木) 16:34 発言

59997 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free