Excel VBA 質問スレ Part73

2021/09/13(月) 07:29:59.47

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/12/15(水) 21:10:32.00

VBAのchengeイベントで

セルB1に１２、セルC１に３、と入力されたら
D1に１２／３と日付が自動で出力され
かつ
C1が空白ならD1も空白
C1が文字ならD１も文字になるようにできるでしょうか？

初心者じみた質問で申し訳ありません

2021/12/15(水) 21:18:56.86

>>880
出来る

2021/12/15(水) 21:20:45.35

>>880
数式でも良い？

2021/12/15(水) 21:24:32.70

>>882
できればVBAでお願いします
わがままですいません

2021/12/15(水) 22:08:43.53

>>883
そうか
＞D1に１２／３と日付が自動で出力され
この場合の、年がわからない
・常に1980年（デフォルト）
・常に「chengeイベント」のあった年
・今が12月なら来年
など

2021/12/16(木) 01:23:52.85

日付と言ってるけど単に文字列で良さそうな感じ

2021/12/16(木) 01:36:42.92

>>883
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo finalty

'無限ループ回避
Application.EnableEvents = False

'C1セルが空白は終了処理へ
If Cells(1, 3) = "" Then GoTo finalty

'C1セルが文字列の場合は、そのまま放り込む。それ意外は日付
If WorksheetFunction.IsText(Cells(1, 3)) Then
Cells(1, 4).Value = Cells(1, 3).Value
Else
Cells(1, 4).Value = DateSerial(Year(Now()), Cells(1, 2), Cells(1, 3))
End If

'終了処理
finalty:
Application.EnableEvents = True

End Sub

とりあえず作ったけど、B1が文字列、ｃ1が数字の時にエラーになるな
B1とC1で日付判定したほうがよかったのだろうか

2021/12/16(木) 05:45:18.34

>>886
「できるでしょうか？」と聞かれているだけなのに引っ掛かる馬鹿

2021/12/16(木) 07:14:30.10

>>887
何か嫌なことがあったのか？

2021/12/16(木) 07:16:48.24

全く内容が同じ投稿を何度も目にしている気がする
その度に丁寧な回答を貰ってるけど
その処理流行ってるの？

2021/12/16(木) 07:34:41.45

>>887
大丈夫？

>>889
同じ内容を貼る人：
相手にしてもらえるので、同じ質問を貼り続ける
承認欲求が満たされない人間の末路

回答者：
腕が上がるので気にせずに回答すればオッケー

2021/12/16(木) 07:46:05.41

そっか

>>886 だけど空白なら終了よりも空白の時は出力先も空白って条件があるから出力先にClearContentsかけた方が良さそう
その後にB1とC1をそれぞれIsNumericでTrueならB1 & "/" & C1をDatevalueで日付データにして出力先へ
あとはElseで文字列として結合して出力とかどうだろう？

2021/12/16(木) 08:42:17.59

>>886
・「C1が空白ならD1も空白」にしないといけないのにやってない
・B1, C1 以外のセルが変更された場合でも無駄な処理が走る
・Cells( ) と Cells( ).Value とバラバラ
・finalty という単語はない

2021/12/16(木) 09:06:16.32

>>892
まあ多少エラーがあっても大まかな流れがわかればいいんでねえの？
後は自力だろ
特にエラー処理関連は条件がわからないとやっても無駄だし

＞・finalty という単語はない
まずこっから突っ込まないと
>>880
＞VBAのchengeイベントで

2021/12/16(木) 10:21:23.91

揚げ足が好物な人に引っかかる優しさ？

2021/12/16(木) 10:48:42.97

>>883
早速のご返答ありがとうございます
とりあえずB1には文字型は入力されないので、教えて頂いた構文で試してみたいと思いますよ
スレの雰囲気悪くしてすいません
先生たちには
感謝します

2021/12/16(木) 12:11:49.85

足フェチ

2021/12/16(木) 12:59:03.22

>>886
Go Toとか草

2021/12/16(木) 20:27:23.55

Gotoトラベル。

2021/12/16(木) 20:37:59.11

GoSub Return

2021/12/16(木) 21:57:52.03

VB.Netでもgotoとかgosubとかremとか残ってるんだよなぁ
いつになったらこんな負の遺産使えなくするのやら
variantとか早々に消したくせに

先にVB.Netの方が消えてしまいそうだ

2021/12/16(木) 22:01:35.50

>>900
DOS時代の古いアプリを移植して使ってるとこが意外とあるらしい
だから昔ながらの行番号なんかも使えるようになってる

2021/12/16(木) 22:40:48.14

https://sugoikaizen.com/excel_list/vba-macro-01/
超初心者です。上のサイトを参考に非表示のシートを全表示にするようにしたいのですが、実際に使ってみるとアクティブシート?が切り替わって切り替わってチカチカしてしまいます。

その切り替わりのチカチカ、アクティブを切り替えないでシートを表示させることってできますか

2021/12/16(木) 23:12:56.50

application.screenupdating=false
処理
application.screenupdating=true

2021/12/16(木) 23:49:36.74

>>892
・「C1が空白ならD1も空白」にしないといけないのにやってない
すまん
・B1, C1 以外のセルが変更された場合でも無駄な処理が走る
ifで分岐させてinsideかInspectorでexitsubだ
・Cells( ) と Cells( ).Value とバラバラ
すまん
・finalty という単語はない
たいぽ

>>897
＞Go Toとか草
vbaはエラー処理がエグいので、gotoを使う方が簡潔になる
今回のように、分岐処理が型に依存するような時はあえてエラーを発生させて、gotoでまとめる方が楽
総論としては「trycatch欲しい」だろうな

2021/12/16(木) 23:54:07.68

>>901
VBできたのはWindowsになってからだな
DOSのときはMS-Cじゃね

2021/12/17(金) 00:50:02.02

行番号はDOS自体が登場する以前のROM BASIC全盛の頃の話
Microsoft BASICの独自拡張版を各メーカーが移植して搭載してた
FDD普及後も暫くはN88 BASICなどは生き残っていたけどDOS登場後は急速に廃れていった

2021/12/17(金) 01:11:17.61

>>906
信長の野望はBASICで作ってあったな

2021/12/17(金) 07:15:41.68

>>905
DOS版のVB使っていたぞ

2021/12/17(金) 07:48:55.45

シートのデータを
文字コードutf-8、改行コードLFでファイルに書き出す方法教えてください

2021/12/17(金) 07:56:20.87

>>908
うわ本当だ知らんかった、すまんす

2021/12/17(金) 08:43:20.41

>>909
Excel単体では無理
アドインか、マクロか、外部ツールで変換か

2021/12/17(金) 12:43:48.01

UTF-8 でも、BOM の有無で2種類ある。
先頭3バイトが「0xEF 0xBB 0xBF」なら、BOM有り

BOM有りUTF-8
BOM無しUTF-8(UTF-8N)

Windows だけはBOM有りだけど、
一般的に、Linux などのウェブではBOM無し

最近のWindowsでは、BOM無しも使えるかも知れない

2021/12/17(金) 16:33:33.43

>>904
先日教えていただいた構文は間違いですか？
今、試したら自分のイメージに近い動作はするような感じです
後は自分で試行錯誤してみたいです

また質問してしまうかもしれませんが
自力でやってみます

2021/12/17(金) 20:46:33.62

空白でないセルの末尾に「様」という文字列を一括追加するマクロを教えてください
置換処理も組み込んで一括で処理したいのでマクロでやりたいです
出来ればコピペで使えるとありがたいです
環境はWin10でExcel2016です
よろしくお願いします

2021/12/17(金) 20:53:35.71

置換も末尾に様を付けるのも関数式で行けるがオートフィルでぶわぁーっとやるんじゃアカンのか？
マクロでやっても処理内容的にはあまり変わらんぞ？

2021/12/17(金) 20:58:45.17

この先をずっと繰り返す作業なので、複数の置換と文字列付加を１つのマクロにまとめたいのです

2021/12/17(金) 21:12:38.32

いつものあいつの釣りとあまりに馬鹿過ぎる質問はお断りです
また、Excelの使い方すらわからない人はお帰りください

2021/12/17(金) 22:36:33.99

>>914
俺も>>915と同意見で、関数かオートフィルでいいと思う。常時必要なら、関数の作業列を作ってそれを参照するとか
それでもいいなら

A列が名前の場合。

Sub Macro3()
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 最終行 To 1 Step -1
If Cells(i, 1).Value <> "" Then Cells(i, 1).Value = Cells(i, 1).Value & "様"
Next
End Sub

2021/12/17(金) 22:44:20.69

何回もマクロ動かして　山田様様　ってなってわけわからんようになる

2021/12/17(金) 22:48:52.62

>>919
まぁこれは直接書き換える案件じゃないんだよな
名前列 & (”様”|"御中")が良い

このやり方だと、最後が「様」で終わる名字があるとバグるんだよな。昔、「羽様」って顧客からクレームがあって「いいんですけどね・・・」って感じだった
まぁ、珍しい名前だしいいと思う

2021/12/17(金) 23:07:41.06

>>913
致命傷は一点

・「C1が空白ならD1も空白」にしないといけないのにやってない
以下のコードで直した

・B1, C1 以外のセルが変更された場合でも無駄な処理が走る
重い処理じゃない。どうせ入力箇所増える
重いなら>>904の内容で修正するか再度聞けば良い

・Cells( ) と Cells( ).Value とバラバラ
どうでもいい
Cells( )はCells( ).Valueに解釈される
暇なら統一すれば良い。特に意味はない

・finalty という単語はない
どうでもいい
もちろんfinalityの打ち間違えは認める
変数名なんてなんでもいい

自己弁護でもないが、そのためにも関数やクラスは影響が最小限に済むように、短くまとめる必要がある

2021/12/17(金) 23:37:41.46

>>920
> 昔、「羽様」って顧客から
岡山県赤磐市か奈良県生駒市かな？

2021/12/17(金) 23:55:47.33

>>922
東京か埼玉、もしくは神奈川。そもそも「羽様」様、以外にも最後が「様」になる名字はそれなりにいるぞ

2021/12/18(土) 00:00:59.23

>>921
のコード書き忘れてたわ

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo finalty

'無限ループ回避
Application.EnableEvents = False

'C1セルが空白は終了処理へ
If Cells(1, 3) = "" Then
Cells(1, 4) = ""
GoTo finalty
End If
'C1セルが文字列の場合は、そのまま放り込む。それ意外は日付
If WorksheetFunction.IsText(Cells(1, 3)) Then
Cells(1, 4).Value = Cells(1, 3).Value
Else
Cells(1, 4).Value = DateSerial(Year(Now()), Cells(1, 2), Cells(1, 3))
End If

'終了処理
finalty:
Application.EnableEvents = True

End Sub

2021/12/18(土) 00:34:19.89

またいつものあいつに引っ掛かる馬鹿ども

2021/12/18(土) 03:53:23.76

>>914
Sub hoge()
Dim targetRange As Range
Dim targetCell As Range

Set targetRange = ThisWorkbook.Sheets(Sheet1.Name).Range("A1:J10")
For Each targetCell In targetRange.Cells
If targetCell.Value <> vbNullString Then
If Right(targetCell.Value, 1) <> "様" Then
targetCell.Value = targetCell.Value & "様"
End If
End If
Next

End Sub

対象シートを変えるならSheets(Sheet1.Name)のSheet1の部分を変えてくれ
シート名じゃなくてシートのオブジェクト名であることに注意な。
今はA1から下10セル、右10セルの範囲に絞っているが、変えたければ
Range("A1:J10")の部分を変えてくれ。

2021/12/18(土) 04:03:51.98

>>924
大変感謝します
早速ためして見ます！

2021/12/18(土) 09:44:05.03

>>914
文字列追加じゃなくて表示形式で対応したらどうだろ
セルの元データを書き換えるのはなんか嫌らしい感じがする

Selection.NumberFormatLocal = "@ ""様"""

2021/12/18(土) 09:58:59.51

条件付き書式で様と御中を使い分けるとか

2021/12/18(土) 10:09:57.53

条件付き書式は値に関与できたっけ？

2021/12/18(土) 10:20:06.80

>>930
マイナス、0、プラス、文字列で分岐できる
どこかにそのフラグを持たせれば分岐できるが・・・それなら最初から様と御中書いたほうが早い

2021/12/18(土) 10:21:15.96

>>931
基本は様でフラグ立てたところだけ御中とか

2021/12/18(土) 10:29:07.67

つーか普通敬称つけるのは印刷するときだけじゃね
エクセルのデータに組み込む必要ないような

2021/12/18(土) 10:30:58.78

量子の世界では1未満は確率的に存在するんだよ。

2021/12/18(土) 10:47:16.76

王さんに様付けると王様だな

2021/12/18(土) 13:06:35.91

>>935
イカに様付けるとイカサマだな
楽しいのか？

2021/12/18(土) 13:09:17.63

>>934
量子の世界でも1か0しかないだろ

2021/12/18(土) 13:11:12.98

銀行の「行」を消して「御中」に直してた画像あったな

2021/12/18(土) 14:28:51.14

だいえーだいえーいえぃいえぃいえぃいえぃ。
だいえーとってもいえぃいえぃいえぃいえぃ。
↓続き。

2021/12/18(土) 14:43:23.05

>空白でないセルの末尾に「様」という文字列を一括追加
これ、今「様」がついてたらつけるなっていう要件じゃないんじゃね
そうじゃないなら、羽様が、羽さん様なのか羽様さんなのか区別できるデータじゃないと不可能だぜ

普通に考えて名称と敬称と分けてもつだろ

2021/12/18(土) 15:31:29.53

おじいさん、もうその話終わってますよ

2021/12/18(土) 17:00:19.27

5chはおじいさんの巣窟ですよ。
子供は他所で遊んだ方が良いですよ。

2021/12/18(土) 17:14:29.79

>>938
直せてねえ…

2021/12/18(土) 19:06:22.48

もしかしてお前らダイエー知らないの？

2021/12/18(土) 19:52:58.88

野球の漫画だっけ

2021/12/18(土) 20:24:25.92

それはダイエーじゃなくて地獄甲子園。

2021/12/18(土) 21:06:03.74

もう25年前に近くのダイエーなくなってダイクマになった（もうそれもなくなってマンションになってるけど）
一駅先にグルメシティの形で残ってるけどほとんど行かない

2021/12/18(土) 21:30:26.72

ヒントもう無いの？

2021/12/18(土) 21:39:28.14

ここまでの情報で、神奈川県秦野市ではないか？と自作AIがはじき出しましたが。
あってる？

2021/12/18(土) 21:44:58.76

>>949
合ってる
ダイクマ発祥の地なのでAIなら楽勝かとw

2021/12/18(土) 21:45:33.86

おおおお！！
あってた！！

**デフォルトの名無しさん** (ｽﾌｯ Sd8a-kSWT) · 2021/12/18(土) 21:47:56.30

神奈川県秦野市の東海大学前のグルメシティは、元は忠実屋というスーパーだった
ダイエーに買収された後グルメシティに変わった
ステッカーの下には今でも忠実屋のロゴマークが残ってる
店の床に小さい段差があるのは増築した痕跡

2021/12/19(日) 00:46:13.19

ほんとおまいら、昔話が大好物だな

2021/12/19(日) 01:41:02.09

ジジイしかいないスレ
VBAなんていまだにやってるのは、ジジイくらいしかいないか

2021/12/19(日) 01:45:35.49

二十歳こえたらみんなジジイだよ

2021/12/19(日) 02:09:49.49

左様でござるか

2021/12/19(日) 05:36:03.45

ダイクマって
あの「ダイナミックダイクマ～！！」の
ダイクマ？

2021/12/19(日) 07:00:08.37

A１に月、B１に最初の日、B２に最後の日を入力したら
C列に最初の日から最後の日まで書き出され
D列には月／日が書き出されるようにしたいのですが

例えば
A　　　　　B　　　　 C　　　　　　D
１２　　　　１９　　　１９　　　　１２/１９
　　　　　　２２　　　２０　　　　１２/２０
　　　　　　　　　　　２１　　　　１２/２１
　　　　　　　　　　　２２　　　　１２/２２

上記のように各セルがチェンジイベントで動作してくれればと

それと文字などがB２に入力された場合は文字をC２、D2に反映したいです

A　　　　　B　　　　 C　　　　　　D
１２　　　　１９　　　１９　　　　１２/１９
　　　　　　 h　 h h

ここで色々お教えいただきそれらの構文を自分なりに組み合わせてみたのですが
初心者の私にはレベルが高すぎるようで・・・

今までご親切にお教えいただいた構文を生かしてなく申し訳ありません。

2021/12/19(日) 07:01:14.70

>>958
> A１に月、B１に最初の日、B２に最後の日を入力したら
> C列に最初の日から最後の日まで書き出され
> D列には月／日が書き出されるようにしたいのですが
>
> 例えば
> A　　　　　B　　　　 C　　　　　　D
> １２　　　　１９　　　１９　　　　１２/１９
> 　　　　　　２２　　　２０　　　　１２/２０
> 　　　　　　　　　　　２１　　　　１２/２１
> 　　　　　　　　　　　２２　　　　１２/２２
>
>
> 上記のように各セルがチェンジイベントで動作してくれればと
>
> それと文字などがB２に入力された場合は文字をC２、D2に反映したいです
>
>
> A　　　　　B　　　　 C　　　　　　D
> １２　　　　１９　　　１９　　　　１２/１９
> 　　　　　　 h　 h h
>
> ここで色々お教えいただきそれらの構文を自分なりに組み合わせてみたのですが
> 初心者の私にはレベルが高すぎるようで・・・
>
> 今までご親切にお教えいただいた構文を生かしてなく申し訳ありません。

2021/12/19(日) 07:03:44.45

間違えがありましたので連続投稿になってしまいましたが
ご教授ください

2021/12/19(日) 07:04:33.84

>>959
> >>958
> > A１に月、B１に最初の日、B２に最後の日を入力したら
> > C列に最初の日から最後の日まで書き出され
> > D列には月／日が書き出されるようにしたいのですが
> >
> > 例えば
> > A　　　　　B　　　　 C　　　　　　D
> > １２　　　　１９　　　１９　　　　１２/１９
> > 　　　　　　２２　　　２０　　　　１２/２０
> > 　　　　　　　　　　　２１　　　　１２/２１
> > 　　　　　　　　　　　２２　　　　１２/２２
> >
> >
> > 上記のように各セルがチェンジイベントで動作してくれればと
> >
> > それと文字などがB２に入力された場合は文字をC２、D2に反映したいです
> >
> >
> > A　　　　　B　　　　 C　　　　　　D
> > １２　　　　１９　　　１９　　　　１２/１９
> > 　　　　　　 h　　　　　h 　　　　　　h
> >
> > ここで色々お教えいただきそれらの構文を自分なりに組み合わせてみたのですが
> > 初心者の私にはレベルが高すぎるようで・・・
> >
> > 今までご親切にお教えいただいた構文を生かしてなく申し訳ありません。

2021/12/19(日) 07:05:30.07

ｈの位置がずれていました
朝から連続投稿すいません！

2021/12/19(日) 07:40:00.27

必要な仕様が足りない
・B2よりB1が大きい場合は動作しない？それとも翌月のその日までを記載？
・B1，B2に入力された数値が日付として有り得ない場合はどうする？動作しないだけでよいのか？
・年の判定はどうする？現在の年を使用してよいのか？

2021/12/19(日) 08:34:48.49

>>958前スレで見た

https://mevius.5ch.net/test/read.cgi/tech/1626565335/782-

2021/12/19(日) 08:38:14.07

最初は782で結局やりたい事は
https://mevius.5ch.net/test/read.cgi/tech/1626565335/829
これだったと

2021/12/19(日) 15:48:07.81

>>963
> 必要な仕様が足りない
失礼しました
> ・B2よりB1が大きい場合は動作しない？それとも翌月のその日までを記載？
B１の方が大きければ空白になってくれればいいのですが
エラー表示がセルに表示されてもエラーはエクセルの設定で空白にできるので大丈夫かと思っています

月をまたぐことはありません

> ・B1，B2に入力された数値が日付として有り得ない場合はどうする？動作しないだけでよいのか？
１２２／１１１や１２／３５と表示されてもかまいません
文字が入力されてもそのまま表示したいです

> ・年の判定はどうする？現在の年を使用してよいのか？
年は考慮しなくても大丈夫です
長くて一週間の予定だけでしか使用しません

説明下手ですいません　（汗　

2021/12/19(日) 17:22:51.01

Dim a(10,20)
a(1,2)=3

上で2行目の1や2の数字のことを何て言うのでしょうか
初歩の質問で申し訳ありません。

2021/12/19(日) 17:50:26.31

ひきすう？

2021/12/19(日) 17:53:41.03

>>967
添え字かな

2021/12/19(日) 18:27:21.36

あるソフトウェアが出力する
ログファイル（テキストファイルで行数は不定）をスペース区切りで文字列として読み込むコードを書いているのですが
ログファイルの先頭行のスペースの数が一定ではなく
単純に読み込むと先頭の数値が
A列目に入ったりB列目、C列目に入ったりして困っております

連続するスペースを一つのデリミタとして扱うか
（そうすればA列だけが空白になる）
もしくは先頭に連続して入っているスペースを無視する方法を探しているのですが見当たりません

皆様のお力添えをお願い致します

2021/12/19(日) 18:43:59.87

>>970
自己レス

> 連続するスペースを一つのデリミタとして扱うか
> （そうすればA列だけが空白になる）

この方法は使えない事に気づきました
ログファイルの先頭（左端）
に数値が入っている場合もあるので
スペースが一つでも入っている場合では、入力される列が
A列とB列に変わってしまいます

先頭（左端）に連続して入っているスペースを無視する方法しか
無いかもしれません

2021/12/19(日) 18:56:32.68

何をしたいのかよくわからんけどちゃちゃっとやるなら正規表現使え
https://codezine.jp/article/detail/1655

2021/12/19(日) 19:02:03.97

ルビー基地外だぞ

2021/12/19(日) 19:04:40.91

>>971
LTrimでググれ

2021/12/19(日) 19:08:52.05

連続レス申し訳ありません

必要な処理はもうちょっと複雑でした
GetOpenFilenameで開いたファイルを
Workbooks.Open(FileN,Format:=3,ReadOnly:=True)
で処理しているのですが
ログファイルの行中に連続して入っているスペースも一つずつカウントして空白列を作ってしまいます

必要な処理は
1) 連続したスペースを一つのデリミタとして区切り
2) 行先頭にスペースが入っていた場合は最初の文字が始まるまで削除もしくは無視する

といったものになると思います
何卒ご助力お願い致します

2021/12/19(日) 19:46:59.93

>>975
それって固定長じゃないの？
全銀データみたいな奴
固定長なら、文字数数えて、データ区切り使ったほうが早いと思う

2021/12/19(日) 20:17:13.17

皆様ご回答ありがとうございます

>>972
ありがとうございます
正規表現は私にはちょっと敷居が高いようです

>>974
ありがとうございます
LTRIMで一度先頭スペースを抜いた中間ファイルを作るというのは
一つの手順としてあるかと思います

>>976
ありがとうございます
途中でエラーメッセージ行とかが
入るので全ての行が固定長
と言うわけではないのですが
データを処理したい行は固定長に近いです
問題は処理したい行の先頭に0～3個のスペースが入ることです

2021/12/19(日) 20:33:08.86

>>975
1行ずつ読み込んで事前処理するのがいいんじゃね
------------------------
行=1
列=1
Open filename for Input as #1
Do until EOF(1)
Line Input #1, str '一行ずつ読み込み
str=Trim(str) '両端の空白除去
arr=Split(str," ") '空白で分割し配列に格納
for i=1 to arr.Ubound(arr) 'セルに書き込み
Cells(行,列+i).Value=arr[i]
next i
行=行+1
Loop
close #1
-----------------------------

2021/12/19(日) 20:40:17.69

>>968-969
ご回答ありがとうございました

2021/12/19(日) 20:44:00.34

>>966
Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Not Intersect(Target, Union(Me.Range("A1"), Me.Range("B1"), Me.Range("B2"))) Is Nothing Then

If Me.Range("A1").Value <> "" And Me.Range("B1").Value <> "" And Me.Range("B2").Value <> "" Then

Me.Columns(3).ClearContents
If Me.Columns(3).NumberFormatLocal <> "@" Then Me.Columns(3).NumberFormatLocal = "@"

If IsNumeric(Me.Range("A1").Value) And IsNumeric(Me.Range("B1").Value) And IsNumeric(Me.Range("B2").Value) And Me.Range("B1").Value <= Me.Range("B2").Value Then

Dim OutAry() As String
ReDim OutAry(Me.Range("B1").Value To Me.Range("B2").Value)

Dim RowCnt As Long
For RowCnt = LBound(OutAry) To UBound(OutAry)
OutAry(RowCnt) = Me.Range("A1") & "/" & RowCnt
Next RowCnt

Range(Me.Cells(1, 3), Me.Cells(UBound(OutAry) - LBound(OutAry) + 1, 3)).Value = WorksheetFunction.Transpose(OutAry)

End If

End If

End If
Application.EnableEvents = True

End Sub