Excel VBA 質問スレ Part73

レス数が950を超えています。1000を超えると書き込みができなくなります。
1デフォルトの名無しさん (ﾜｯﾁｮｲ 4668-xJJl)
垢版 |
2021/09/13(月) 07:29:59.47ID:GNx0xRRz0
!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
898デフォルトの名無しさん (ﾜｯﾁｮｲ e701-w2+9)
垢版 |
2021/12/16(木) 20:27:23.55ID:Y2CVy/MB0
Gotoトラベル。
2021/12/16(木) 20:37:59.11ID:6VquwdhR0
GoSub Return
2021/12/16(木) 21:57:52.03ID:jTOt4wzg0
VB.Netでもgotoとかgosubとかremとか残ってるんだよなぁ
いつになったらこんな負の遺産使えなくするのやら
variantとか早々に消したくせに

先にVB.Netの方が消えてしまいそうだ
2021/12/16(木) 22:01:35.50ID:z6vE3S6bd
>>900
DOS時代の古いアプリを移植して使ってるとこが意外とあるらしい
だから昔ながらの行番号なんかも使えるようになってる
2021/12/16(木) 22:40:48.14ID:mHaEbFg60
https://sugoikaizen.com/excel_list/vba-macro-01/
超初心者です。上のサイトを参考に非表示のシートを全表示にするようにしたいのですが、実際に使ってみるとアクティブシート?が切り替わって切り替わってチカチカしてしまいます。

その切り替わりのチカチカ、アクティブを切り替えないでシートを表示させることってできますか
2021/12/16(木) 23:12:56.50ID:gXiWyVoW0
application.screenupdating=false
処理
application.screenupdating=true
2021/12/16(木) 23:49:36.74ID:B/UsaEnq0
>>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.68ID:yQf1medY0
>>901
VBできたのはWindowsになってからだな
DOSのときはMS-Cじゃね
2021/12/17(金) 00:50:02.02ID:6ayQmUSdM
行番号はDOS自体が登場する以前のROM BASIC全盛の頃の話
Microsoft BASICの独自拡張版を各メーカーが移植して搭載してた
FDD普及後も暫くはN88 BASICなどは生き残っていたけどDOS登場後は急速に廃れていった
2021/12/17(金) 01:11:17.61ID:mgcQuSa30
>>906
信長の野望はBASICで作ってあったな
2021/12/17(金) 07:15:41.68ID:yydeurUcd
>>905
DOS版のVB使っていたぞ
2021/12/17(金) 07:48:55.45ID:nHDcKfC1M
シートのデータを
文字コードutf-8、改行コードLFでファイルに書き出す方法教えてください
2021/12/17(金) 07:56:20.87ID:mgcQuSa30
>>908
うわ本当だ知らんかった、すまんす
2021/12/17(金) 08:43:20.41ID:Q9tRMs+C0
>>909
Excel単体では無理
アドインか、マクロか、外部ツールで変換か
2021/12/17(金) 12:43:48.01ID:tWB5K5S10
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.43ID:ggdkHu5b0
>>904
先日教えていただいた構文は間違いですか？
今、試したら自分のイメージに近い動作はするような感じです
後は自分で試行錯誤してみたいです

また質問してしまうかもしれませんが
自力でやってみます
2021/12/17(金) 20:46:33.62ID:XfO8F9WV0
空白でないセルの末尾に「様」という文字列を一括追加するマクロを教えてください
置換処理も組み込んで一括で処理したいのでマクロでやりたいです
出来ればコピペで使えるとありがたいです
環境はWin10でExcel2016です
よろしくお願いします
2021/12/17(金) 20:53:35.71ID:csKw8MZR0
置換も末尾に様を付けるのも関数式で行けるがオートフィルでぶわぁーっとやるんじゃアカンのか？
マクロでやっても処理内容的にはあまり変わらんぞ？
2021/12/17(金) 20:58:45.17ID:XfO8F9WV0
この先をずっと繰り返す作業なので、複数の置換と文字列付加を１つのマクロにまとめたいのです
917デフォルトの名無しさん (ﾜｯﾁｮｲ be8e-qezp)
垢版 |
2021/12/17(金) 21:12:38.32ID:ptO1GC2n0
いつものあいつの釣りとあまりに馬鹿過ぎる質問はお断りです
また、Excelの使い方すらわからない人はお帰りください
2021/12/17(金) 22:36:33.99ID:V6YMPjTu0
>>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.69ID:/MGmp6un0
何回もマクロ動かして　山田様様　ってなってわけわからんようになる
2021/12/17(金) 22:48:52.62ID:V6YMPjTu0
>>919
まぁこれは直接書き換える案件じゃないんだよな
名前列 & (”様”|"御中")が良い

このやり方だと、最後が「様」で終わる名字があるとバグるんだよな。昔、「羽様」って顧客からクレームがあって「いいんですけどね・・・」って感じだった
まぁ、珍しい名前だしいいと思う
2021/12/17(金) 23:07:41.06ID:V6YMPjTu0
>>913
致命傷は一点

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

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

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

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

自己弁護でもないが、そのためにも関数やクラスは影響が最小限に済むように、短くまとめる必要がある
2021/12/17(金) 23:37:41.46ID:+tVxxheq0
>>920
> 昔、「羽様」って顧客から
岡山県赤磐市か奈良県生駒市かな？
2021/12/17(金) 23:55:47.33ID:V6YMPjTu0
>>922
東京か埼玉、もしくは神奈川。そもそも「羽様」様、以外にも最後が「様」になる名字はそれなりにいるぞ
2021/12/18(土) 00:00:59.23ID:K0Bjo2m80
>>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
925デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MMda-+zQR)
垢版 |
2021/12/18(土) 00:34:19.89ID:fI0CXnXAM
またいつものあいつに引っ掛かる馬鹿ども
926デフォルトの名無しさん (ﾜｯﾁｮｲ 6a4f-j66Y)
垢版 |
2021/12/18(土) 03:53:23.76ID:RSZ8HegY0
>>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.98ID:ghw9tbZ70
>>924
大変感謝します
早速ためして見ます！
2021/12/18(土) 09:44:05.03ID:jhUX4QL/0
>>914
文字列追加じゃなくて表示形式で対応したらどうだろ
セルの元データを書き換えるのはなんか嫌らしい感じがする

Selection.NumberFormatLocal = "@ ""様"""
2021/12/18(土) 09:58:59.51ID:KOqLJ1bdM
条件付き書式で様と御中を使い分けるとか
2021/12/18(土) 10:09:57.53ID:NazcNFuF0
条件付き書式は値に関与できたっけ？
2021/12/18(土) 10:20:06.80ID:MnOybqtX0
>>930
マイナス、0、プラス、文字列で分岐できる
どこかにそのフラグを持たせれば分岐できるが・・・それなら最初から様と御中書いたほうが早い
2021/12/18(土) 10:21:15.96ID:mp+R0tauM
>>931
基本は様でフラグ立てたところだけ御中とか
2021/12/18(土) 10:29:07.67ID:bbhq+5c10
つーか普通敬称つけるのは印刷するときだけじゃね
エクセルのデータに組み込む必要ないような
934デフォルトの名無しさん (ﾜｯﾁｮｲ a301-izju)
垢版 |
2021/12/18(土) 10:30:58.78ID:S/VVluSn0
量子の世界では1未満は確率的に存在するんだよ。
2021/12/18(土) 10:47:16.76ID:S7ay6emt0
王さんに様付けると王様だな
2021/12/18(土) 13:06:35.91ID:SgR4ReUM0
>>935
イカに様付けるとイカサマだな
楽しいのか？
2021/12/18(土) 13:09:17.63ID:SgR4ReUM0
>>934
量子の世界でも1か0しかないだろ
2021/12/18(土) 13:11:12.98ID:SgR4ReUM0
銀行の「行」を消して「御中」に直してた画像あったな
939デフォルトの名無しさん (ﾜｯﾁｮｲ a301-izju)
垢版 |
2021/12/18(土) 14:28:51.14ID:S/VVluSn0
だいえーだいえーいえぃいえぃいえぃいえぃ。
だいえーとってもいえぃいえぃいえぃいえぃ。
↓続き。
2021/12/18(土) 14:43:23.05ID:yfxR8FS90
>空白でないセルの末尾に「様」という文字列を一括追加
これ、今「様」がついてたらつけるなっていう要件じゃないんじゃね
そうじゃないなら、羽様が、羽さん様なのか羽様さんなのか区別できるデータじゃないと不可能だぜ

普通に考えて名称と敬称と分けてもつだろ
2021/12/18(土) 15:31:29.53ID:XqEkP9jw0
おじいさん、もうその話終わってますよ
2021/12/18(土) 17:00:19.27ID:T6quYshAM
5chはおじいさんの巣窟ですよ。
子供は他所で遊んだ方が良いですよ。
2021/12/18(土) 17:14:29.79ID:nevTsbMb0
>>938
直せてねえ…
944デフォルトの名無しさん (ﾜｯﾁｮｲ a301-izju)
垢版 |
2021/12/18(土) 19:06:22.48ID:S/VVluSn0
もしかしてお前らダイエー知らないの？
2021/12/18(土) 19:52:58.88ID:S7ay6emt0
野球の漫画だっけ
946デフォルトの名無しさん (ﾜｯﾁｮｲ a301-izju)
垢版 |
2021/12/18(土) 20:24:25.92ID:S/VVluSn0
それはダイエーじゃなくて地獄甲子園。
2021/12/18(土) 21:06:03.74ID:XqEkP9jw0
もう25年前に近くのダイエーなくなってダイクマになった（もうそれもなくなってマンションになってるけど）
一駅先にグルメシティの形で残ってるけどほとんど行かない
948デフォルトの名無しさん (ﾜｯﾁｮｲ a301-izju)
垢版 |
2021/12/18(土) 21:30:26.72ID:S/VVluSn0
ヒントもう無いの？
949デフォルトの名無しさん (ﾜｯﾁｮｲ a301-izju)
垢版 |
2021/12/18(土) 21:39:28.14ID:S/VVluSn0
ここまでの情報で、神奈川県秦野市ではないか？と自作AIがはじき出しましたが。
あってる？
2021/12/18(土) 21:44:58.76ID:XqEkP9jw0
>>949
合ってる
ダイクマ発祥の地なのでAIなら楽勝かとw
951デフォルトの名無しさん (ﾜｯﾁｮｲ a301-izju)
垢版 |
2021/12/18(土) 21:45:33.86ID:S/VVluSn0
おおおお！！
あってた！！
2021/12/18(土) 21:47:56.30ID:ruUAvqsCd
神奈川県秦野市の東海大学前のグルメシティは、元は忠実屋というスーパーだった
ダイエーに買収された後グルメシティに変わった
ステッカーの下には今でも忠実屋のロゴマークが残ってる
店の床に小さい段差があるのは増築した痕跡
2021/12/19(日) 00:46:13.19ID:1w97E/wVM
ほんとおまいら、昔話が大好物だな
2021/12/19(日) 01:41:02.09ID:SLVervUs0
ジジイしかいないスレ
VBAなんていまだにやってるのは、ジジイくらいしかいないか
2021/12/19(日) 01:45:35.49ID:F1jZtUeQ0
二十歳こえたらみんなジジイだよ
956デフォルトの名無しさん (ｱｳｱｳｷｰ Safb-fxsa)
垢版 |
2021/12/19(日) 02:09:49.49ID:WKKxXwhHa
左様でござるか
2021/12/19(日) 05:36:03.45ID:9cYlynLW0
ダイクマって
あの「ダイナミックダイクマ〜！！」の
ダイクマ？
2021/12/19(日) 07:00:08.37ID:LtRjW0Zk0
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.70ID:LtRjW0Zk0
>>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.45ID:LtRjW0Zk0
間違えがありましたので連続投稿になってしまいましたが
ご教授ください
2021/12/19(日) 07:04:33.84ID:LtRjW0Zk0
>>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.07ID:LtRjW0Zk0
ｈの位置がずれていました
朝から連続投稿すいません！
2021/12/19(日) 07:40:00.27ID:F1jZtUeQ0
必要な仕様が足りない
・B2よりB1が大きい場合は動作しない？それとも翌月のその日までを記載？
・B1，B2に入力された数値が日付として有り得ない場合はどうする？動作しないだけでよいのか？
・年の判定はどうする？現在の年を使用してよいのか？
2021/12/19(日) 08:34:48.49ID:J5v8c1sd0
>>958前スレで見た

https://mevius.5ch.net/test/read.cgi/tech/1626565335/782-
2021/12/19(日) 08:38:14.07ID:J5v8c1sd0
最初は782で結局やりたい事は
https://mevius.5ch.net/test/read.cgi/tech/1626565335/829
これだったと
2021/12/19(日) 15:48:07.81ID:LtRjW0Zk0
>>963
> 必要な仕様が足りない
失礼しました
> ・B2よりB1が大きい場合は動作しない？それとも翌月のその日までを記載？
B１の方が大きければ空白になってくれればいいのですが
エラー表示がセルに表示されてもエラーはエクセルの設定で空白にできるので大丈夫かと思っています

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

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

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

説明下手ですいません　（汗　
2021/12/19(日) 17:22:51.01ID:6V5J9+AZ0
Dim a(10,20)
a(1,2)=3

上で2行目の1や2の数字のことを何て言うのでしょうか
初歩の質問で申し訳ありません。
2021/12/19(日) 17:50:26.31ID:XeEcFWJL0
ひきすう？
2021/12/19(日) 17:53:41.03ID:KHFMKFNKM
>>967
添え字かな
2021/12/19(日) 18:27:21.36ID:pq+sPc2G0
あるソフトウェアが出力する
ログファイル（テキストファイルで行数は不定）をスペース区切りで文字列として読み込むコードを書いているのですが
ログファイルの先頭行のスペースの数が一定ではなく
単純に読み込むと先頭の数値が
A列目に入ったりB列目、C列目に入ったりして困っております

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

皆様のお力添えをお願い致します
971デフォルトの名無しさん (ﾜｯﾁｮｲ dabd-6dU9)
垢版 |
2021/12/19(日) 18:43:59.87ID:pq+sPc2G0
>>970
自己レス

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

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

先頭（左端）に連続して入っているスペースを無視する方法しか
無いかもしれません
2021/12/19(日) 18:56:32.68ID:RC6G9Zkh0
何をしたいのかよくわからんけどちゃちゃっとやるなら正規表現使え
https://codezine.jp/article/detail/1655
973デフォルトの名無しさん (ﾜｯﾁｮｲ be8e-qezp)
垢版 |
2021/12/19(日) 19:02:03.97ID:oG6IuvVy0
ルビー基地外だぞ
2021/12/19(日) 19:04:40.91ID:9cYlynLW0
>>971
LTrimでググれ
975デフォルトの名無しさん (ﾜｯﾁｮｲ dabd-6dU9)
垢版 |
2021/12/19(日) 19:08:52.05ID:pq+sPc2G0
連続レス申し訳ありません

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

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

といったものになると思います
何卒ご助力お願い致します
2021/12/19(日) 19:46:59.93ID:sZ+QwmZV0
>>975
それって固定長じゃないの？
全銀データみたいな奴
固定長なら、文字数数えて、データ区切り使ったほうが早いと思う
977デフォルトの名無しさん (ﾜｯﾁｮｲ dabd-6dU9)
垢版 |
2021/12/19(日) 20:17:13.17ID:pq+sPc2G0
皆様ご回答ありがとうございます

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

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

>>976
ありがとうございます
途中でエラーメッセージ行とかが
入るので全ての行が固定長
と言うわけではないのですが
データを処理したい行は固定長に近いです
問題は処理したい行の先頭に0〜3個のスペースが入ることです
2021/12/19(日) 20:33:08.86ID:Ax4UFlXX0
>>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.69ID:6V5J9+AZ0
>>968-969
ご回答ありがとうございました
2021/12/19(日) 20:44:00.34ID:F1jZtUeQ0
>>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
981デフォルトの名無しさん (ﾜｯﾁｮｲ dabd-6dU9)
垢版 |
2021/12/19(日) 20:57:27.62ID:pq+sPc2G0
>>978
ありがとうございます

私も一行ずつ処理するべきなのかと思い始めました

その際
----------------
arr=Split(str," ") '空白で分割し配列に格納
----------------
だとデータ行中に空白が連続している場合
例えば
a b c d
のような場合でも
A列→a
B列→b
C列→c
D列→d
のように入力可能でしょうか？
2021/12/19(日) 21:13:00.94ID:LtRjW0Zk0
>>980
わかりづらい説明にご親切にありがとうございます
感謝！
今から試したいと思います！
2021/12/19(日) 21:22:20.20ID:o7hmg8oNM
>>981
そんなもんマクロの記録で連続する区切り文字は1文字として扱うオプション使えばいいでしょ
2021/12/19(日) 21:39:11.49ID:EkrjUmtA0
Ruby なら、abc の前後・間に、複数の連続した空白類があっても、分割できる

Ruby で，文字列を空白文字類や「.」などを区切りとして切り出す
https://www.kkaneko.jp/pro/ruby/tokenize.html

str = " a b c "

p str.split( nil )
p str.strip.split( /\s+/ )
p str.strip.split( /[ |\t|\r|\n|\f]+/ )

これらはすべて、["a", "b", "c"] となる

空白類・\s は、[ |\t|\r|\n|\f] の5種類の空白を含む。
strip は、文字列の先頭・末尾から、連続した空白類を除去する
2021/12/19(日) 21:42:45.37ID:tlLDAcl00
今時、rubyとか使ってんじゃねーよ
2021/12/19(日) 21:51:18.70ID:LtRjW0Zk0
>>980
すみません
今試してみました
Ｃ列には期間の日が表示され
Ｄ列には機関の月日が表示され

仮にＢ２に文字が入力されたら
Ｃ２とＤ２には文字が表示され
Ｃ１とＤ１には日と月日が表示したいです

私にはなにをどうしたらいいのかまったくわかりませんでした
技術的にむずかしいでしょうか？
ググってみましたが出来そうにないです
2021/12/19(日) 22:12:20.36ID:Ax4UFlXX0
>>981
その場合はtrim, splitの替わりに正規表現使うのがいいかと
dim reg as new regexp
reg.global=true
reg.pattern="(\S+)" '空白以外
set mc=reg.execute(str)
for i to mc.count-1
set m=mc.item(i)
cells(1,i).value=m.value
next i
2021/12/19(日) 23:20:35.00ID:2A/aI1dD0
>>981
これで代入できる
Range("A1:D1") = Split(str, " ")
989デフォルトの名無しさん (ﾜｯﾁｮｲ be8e-qezp)
垢版 |
2021/12/19(日) 23:23:16.74ID:oG6IuvVy0
相変わらずRuby基地外に引っ掛かる馬鹿ども
990デフォルトの名無しさん (ﾜｯﾁｮｲ dabd-6dU9)
垢版 |
2021/12/19(日) 23:33:22.46ID:pq+sPc2G0
>>983
！
ありがとうございます
やってみます

>>984
ありがとうございます
さすがにExcelで処理しているファイルをVBA以外で制御するのは無理です

>>987
ありがとうございます
正規表現は敷居が高い（奥深すぎ）ので敬遠していましたが
そのコードを手がかりに解析してみます

a b c d
a b c d
a b c d

のような場合でも
そのコードは使えますでしょうか？
991デフォルトの名無しさん (ﾜｯﾁｮｲ dabd-6dU9)
垢版 |
2021/12/19(日) 23:36:15.57ID:pq+sPc2G0
>>988
ありがとうございます

この場合も処理可能でしょうか？
a b c d
a b c d
a b c d
2021/12/19(日) 23:41:22.83ID:kIFouMiR0
ファイルを開いてVBAで処理する系は
VBAのエディタがアップデート放棄しててユニコードに対応しないらしいのでやめた方がいいかも

Regexpでユニコード文字列を置き換える処理をこさえたりすればなんとかなるかもしれないが
993デフォルトの名無しさん (ﾜｯﾁｮｲ dabd-6dU9)
垢版 |
2021/12/19(日) 23:51:29.72ID:pq+sPc2G0
>>992
ご注意ありがとうございます
私の場合であれば処理するlogは
ASCIIのみなので問題ないかと思います
2021/12/20(月) 01:25:47.26ID:x5N85HfoM
replace(hoge," "," ")
2021/12/20(月) 01:39:15.08ID:jnlr9GaR0
>>986
ごめん
ちょっと何を言っているのか分からないからもう少し整理してから言葉にして
文字列や日付として破綻しているものでも可なのにその期間を出力せよっていうのはどういう意味？
仕様がちぐはぐで何をしたいのかが分からない

出力列を増やすのはのは対して手間は変わらないから自分でアレンジして
分からないならもっと基礎の部分を勉強するか諦めて関数式書いた方が早いよ
2021/12/20(月) 01:41:34.12ID:jnlr9GaR0
次スレ
Excel VBA 質問スレ Part74
https://mevius.5ch.net/test/read.cgi/tech/1639932059/
2021/12/20(月) 07:39:37.83ID:sc4Jjnxw0
>>996
乙
レス数が950を超えています。1000を超えると書き込みができなくなります。
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況