Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10511 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 発言[未読]
【21388】コード化してください
質問  ！超初心者！  - 05/1/20(木) 15:14 -
引用なし
パスワード
   はじめまして。
早速なんですが、

=IF(Sheet1!A1="大",5,IF(Sheet1!A1="小",1,3))

どなたかコレをコード化（？）ＶＢＡ化（？）していただけませんか？

お願いします。
【21391】Re:コード化してください
回答  IROC  - 05/1/20(木) 15:20 -
引用なし
パスワード
   どのようなVBAにすればよいのでしょうか？

使用法が分からないのすけど・・・ユーザー定義関数でしょうか？
【21392】Re:コード化してください
回答  でれすけ  - 05/1/20(木) 15:24 -
引用なし
パスワード
   はじめまして。

「マクロの記録」をつかってください。
　B1セルに式を入力する作業を記録したら、こうなりました。

では。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2005/1/20　ユーザー名 :
'

'
　　ActiveCell.FormulaR1C1 = _
　　　　"=IF(Sheet1!RC[-1]=""大"",5,IF(Sheet1!RC[-1]=""小"",1,3))"
End Sub
【21394】Re:コード化してください
回答  ！超初心者！  - 05/1/20(木) 15:28 -
引用なし
パスワード
   あ、すみません。
=IF(Sheet1!A1="大",5,IF(Sheet1!A1="小",1,3))
シート2にこれが書いてあります。
シート1のＡ1の文字が「大」なら「5」に、「小」なら「1」に、
それ以外なら「3」に置換したいんです。
こんな説明でよかったんでしょうか？
すみません。
【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
【21396】Re:コード化してください
発言  ！超初心者！  - 05/1/20(木) 15:31 -
引用なし
パスワード
   でれすけさん、すみません。
If〜Thenの文を教えて欲しいのです。
【21398】Re:コード化してください
回答  IROC  - 05/1/20(木) 15:36 -
引用なし
パスワード
   ヘルプに詳しく書いてありますけど、読んでみたのでしょうか？
【21404】Re:コード化してください
質問  ！超初心者！  - 05/1/20(木) 15:57 -
引用なし
パスワード
   G-Luck さん、すみません！
せっかく二つ書いていただいたのですが、
シート1のＡ1の文字が「大」なら「5」に、「小」なら「1」に、
それ以外なら「3」に、シート2のA1に置換したいのです・・・。
（シート1は元の文字のまま）
よろしくお願いします。
【21406】Re:コード化してください
回答  G-Luck  - 05/1/20(木) 16:11 -
引用なし
パスワード
   プログラムの意味は、理解していただけましたでしょうか？

シート１のA1セルは、Worksheets("Sheet1").Range("A1")です。
シート２のA1セルは、Worksheets("Sheet2").Range("A1")です。

If文は,

If 条件 then
　真の場合
Else
　偽の場合
End If

真の場合、偽の場合の部分にIf文を書くこともできます。
つまり

If 条件 then
　'真の場合
Else
　'偽の場合
　If 条件 then
　　'真の場合
　Else
　　'偽の場合
　End If
End If

ですね。ということは、
がんばってください。
【21407】Re:コード化してください
回答  IROC  - 05/1/20(木) 16:32 -
引用なし
パスワード
   今回のような条件のときは、
IfよりもSelect Caseの方が良いかと思います。　
【21408】Re:コード化してください
発言  G-Luck  - 05/1/20(木) 16:34 -
引用なし
パスワード
   ちなみに、イベントは分かりますか？
どのタイミングで実行したいか？
最初のシート2のA1セルの文字は入力されていないといけないのでしょうか？
VBA化する目的は？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10511 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free