未熟な私ですが…
セルC2の文字列の6・7桁目に入っている文字により、8桁目の文字を 置き換えるものをつくりました。
例えば、セルのC2に、IRCD-311234 という値があれば
IRCD-31A234 にしなさいというものです
しかし、 ElseIf の条件式にあてはまるものがでてきても、
すべて最初のIFの条件式にしてしまい、Elseifに反応してくれません。
******************************************************
Sub 変換()
Dim DAT As Range
Dim CAR As String
If Mid(Range("C2").Value, 6, 2) = 31 Or 32 Or 33 Then
For Each DAT In Range("A1:P40")
CAR = CStr(DAT)
If Left(CAR, 5) = "IRCD-" Then
CAR = Left(CAR, 7) & "A" & Right(CAR, Len(CAR) - 8)
DAT.Value = CAR
End If
Next
ElseIf Mid(Range("C2").Value, 6, 2) = 37 Or 38 Or 39 Then
For Each DAT In Range("A1:P40")
CAR = CStr(DAT)
If Left(CAR, 5) = "IRCD-" Then
CAR = Left(CAR, 7) & "B" & Right(CAR, Len(CAR) - 8)
DAT.Value = CAR
End If
Next
End If
End Sub
******************************************************
本やネットを見ているのですが、何が悪いのか私にはわかりません…。
どうかご指導をお願いいたします。
No.4ベストアンサー
- 回答日時:
こんにちは
Select Case ステートメントを使ってみました、ご参考に
Sub 変換2()
Dim DAT As Range
Dim CAR As String
Dim str As String
Select Case Mid(Range("C2").Value, 6, 2)
Case 31 To 33: str = "A"
Case 37 To 39: str = "B"
Case Else: Exit Sub
End Select
For Each DAT In Range("A1:P40")
CAR = CStr(DAT.Value)
If Left(CAR, 5) = "IRCD-" Then
CAR = Left(CAR, 7) & str & Right(CAR, Len(CAR) - 8)
DAT.Value = CAR
End If
Next
End Sub
なるほど!
すごくシンプルでわかりやすいです!
Case 31 To 33: str = "A"
Case 37 To 39: str = "B"
という書き方、勉強になります
ありがとうございました!!
No.5
- 回答日時:
相当VBAの経験と勉強しないと、と思う。
同じセル範囲Range("A1:P40")に対して、何度もFor Each が出たりしているが、普通はやらないのでは。特別の事情があるのかな。
1つのセルを捉えたとき、そのセルに対し
If ○ Then
処理1
elseIf ▼ Then
処理2
Elseif ■ Then
処理3
else
処理4
End IF
などの該当を判別してしまうはず。
参考
http://detail.chiebukuro.yahoo.co.jp/qa/question …
----
> 37 Or 38 Or 39 Then
の書き方も他言語で出来るものもあるが、VBではA=47 Or A=38を繰り返さないといけない。
ーーー
条件が多い場合は、Cace文を勉強して使ったら。
文字数もいろいろで、位置もいろいろあるので、
何度もFor Each を使いました
実はこの5倍くらいの長さのものをつくっていて、その中で何度もCase文を使っているので、それはわかります。
IF文の知識がたりませんでした
ありがとうございました
No.3
- 回答日時:
If Mid(Range("C2").Value, 6, 2) = 31 Or Mid(Range("C2").Value, 6, 2) = 32 Or Mid(Range("C2").Value, 6, 2) = 33 Then
ですね
もう1個のIF文も同じようにしてください。
No.2
- 回答日時:
おそらくお悩みのことと思いますので、コードだけ見てパッと思ったことを書きます。
4行目、
If Mid(Range("C2").Value, 6, 2) = 31 Or 32 Or 33 Then の部分は一つ一つ書かなくてはいけません。
If Mid(Range("C2").Value, 6, 2) = 31 Or Mid(Range("C2").Value, 6, 2) =32 Or Mid(Range("C2").Value, 6, 2) =33 Then
という具合です。
これと同様に12行目も全く同じように変更する必要があります。
...............................................................................................................................................................
このように複数条件を書く場合には「IF」を使うのではなく「Select case」を使うとすっきりします。
Sub 変換()
Dim DAT As Range
Dim CAR As String
Select Case Mid(Range("C2").Value, 6, 2) 'ここ変更
Case 31, 32, 33 'ここ変更
For Each DAT In Range("A1:P40")
CAR = CStr(DAT)
If Left(CAR, 5) = "IRCD-" Then
CAR = Left(CAR, 7) & "A" & Right(CAR, Len(CAR) - 8)
DAT.Value = CAR
End If
Next
Case 37, 38, 39 'ここ変更
For Each DAT In Range("A1:P40")
CAR = CStr(DAT)
If Left(CAR, 5) = "IRCD-" Then
CAR = Left(CAR, 7) & "B" & Right(CAR, Len(CAR) - 8)
DAT.Value = CAR
End If
Next
End Select 'ここ変更
End Sub
おそらくこれで解決できたのではないでしょうか?
解決できない場合はコードを最後までじっくり見てみますのでお知らせください。
わかりやすく教えていただき、ありがとうございます。
まず誤りを教えていただいた上で、
丁寧により良い方法をご指導いただき、感謝です。
最後の言葉は、「よし、がんばろう」って気持ちになりました。
会社には、わかる人がほとんどいないため、一人でぶつぶついいながら格闘していた私には、とても癒される言葉でした。
ありがとうございました。
No.1
- 回答日時:
>If Mid(Range("C2").Value, 6, 2) = 31 Or 32 Or 33 Then
COBOL じゃないんだから、こんな書き方は無い。32とか33は
「0ではない」=「偽ではない」なので、真になってしまいます。
Select Case Val(Mid(Range("C2").Value, 6, 2)) '正しくはValを使う
Case 31, 32, 33
CAR = CStr(DAT)
このように記述しましょう。
どうしてもIfが使いたければ、左辺を手抜きしないで記述します。
If Mid(Range("C2").Value, 6, 2) = 31 _
Or Mid(Range("C2").Value, 6, 2) = 32 _
Or Mid(Range("C2").Value, 6, 2) = 33 Then
イヤでしょ?効率も悪いし・・・
そうですね、お恥ずかしい。書き方が間違えてました…。
caseは使い勝手の良いものですね。
これから活用します。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
VBA IF文でORを使ったとき後ろの条件が実行されない
Visual Basic(VBA)
-
なぜこんな初歩的なVBAのIf文でエラーか発生して使えないのか、全く理解出来ません。誰か助けてくださ
Visual Basic(VBA)
-
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
-
4
VBA 判定文で理解できない結果になる
その他(Microsoft Office)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
あるセルの値を認識しないのですが、何が悪いのでしょうか?
Excel(エクセル)
-
8
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
9
どうやってもFor文を抜けてしまいます…(VBA)
Excel(エクセル)
-
10
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
11
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
12
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
13
(Excel VBA)and,orについて
Excel(エクセル)
-
14
VBAで、セル(Range)のオブジェクトが取得できない
Excel(エクセル)
-
15
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
16
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
【VBA】計算結果に小数点第2位までを表示させる方法
Visual Basic(VBA)
-
19
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
20
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数指定セルの可視セルのみを...
-
VBA 日付の引き算
-
昨日、質問した件『VBA にて、...
-
特定の色のついたセルを削除
-
Excel 範囲指定スクショについ...
-
エクセルVBAによる不連続データ...
-
EXCEL VBA 文中の書式ごと複写...
-
VBAマクロ実行時エラーの修正に...
-
VBA:日付を配列に入れ別セルに...
-
VBAでユーザーフォームにセル値...
-
VBA 検索
-
エクセルマクロのVBAでINDEX関...
-
シートに条件付き書式のセルが...
-
Excelで空白セル直前のセルデー...
-
エクセル VBAの時間制御
-
Excel VBAで特定の範囲の空白セ...
-
エクセルVBA ダブルクリックし...
-
特定のセルの文字数を数え、奇...
-
VBAで3の倍数の乱数を取得する
-
VBAのTIMER関数で返された値を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excel UserForm の表示位置
-
エクセルVBA 配列からセルに「...
-
EXCEL VBA 文中の書式ごと複写...
-
特定の色のついたセルを削除
-
【Excel VBA】一番右端セルまで...
-
Excelで空白セル直前のセルデー...
-
【VBA】写真の貼り付けコードが...
-
VBAコードについて教えてくださ...
-
【VBA】【ユーザーフォーム_Lis...
-
Excel 範囲指定スクショについ...
-
VBAでユーザーフォームにセル値...
-
VBA:日付を配列に入れ別セルに...
-
VBA にて、条件付き書式で背景...
-
Excel VBAでCheckboxの名前を変...
-
複数指定セルの可視セルのみを...
-
Excel VBA IF文がうまく動作し...
-
エクセルのカーソルを非表示に...
-
入力規則のリスト選択
-
VBA 複数条件の分岐処理の上手...
おすすめ情報