Excel VBA 質問スレ Part73
レス数が1000を超えています。これ以上書き込みはできません。
!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 神奈川県秦野市の東海大学前のグルメシティは、元は忠実屋というスーパーだった
ダイエーに買収された後グルメシティに変わった
ステッカーの下には今でも忠実屋のロゴマークが残ってる
店の床に小さい段差があるのは増築した痕跡 ジジイしかいないスレ
VBAなんていまだにやってるのは、ジジイくらいしかいないか ダイクマって
あの「ダイナミックダイクマ〜！！」の
ダイクマ？ A１に月、B１に最初の日、B２に最後の日を入力したら
C列に最初の日から最後の日まで書き出され
D列には月／日が書き出されるようにしたいのですが
例えば
A B C D
１２ １９ １９ １２/１９
２２ ２０ １２/２０
２１ １２/２１
２２ １２/２２
上記のように各セルがチェンジイベントで動作してくれればと
それと文字などがB２に入力された場合は文字をC２、D2に反映したいです
A B C D
１２ １９ １９ １２/１９
h h h
ここで色々お教えいただきそれらの構文を自分なりに組み合わせてみたのですが
初心者の私にはレベルが高すぎるようで・・・
今までご親切にお教えいただいた構文を生かしてなく申し訳ありません。 >>958
> A１に月、B１に最初の日、B２に最後の日を入力したら
> C列に最初の日から最後の日まで書き出され
> D列には月／日が書き出されるようにしたいのですが
>
> 例えば
> A B C D
> １２ １９ １９ １２/１９
> ２２ ２０ １２/２０
> ２１ １２/２１
> ２２ １２/２２
>
>
> 上記のように各セルがチェンジイベントで動作してくれればと
>
> それと文字などがB２に入力された場合は文字をC２、D2に反映したいです
>
>
> A B C D
> １２ １９ １９ １２/１９
> h h h
>
> ここで色々お教えいただきそれらの構文を自分なりに組み合わせてみたのですが
> 初心者の私にはレベルが高すぎるようで・・・
>
> 今までご親切にお教えいただいた構文を生かしてなく申し訳ありません。 間違えがありましたので連続投稿になってしまいましたが
ご教授ください >>959
> >>958
> > A１に月、B１に最初の日、B２に最後の日を入力したら
> > C列に最初の日から最後の日まで書き出され
> > D列には月／日が書き出されるようにしたいのですが
> >
> > 例えば
> > A B C D
> > １２ １９ １９ １２/１９
> > ２２ ２０ １２/２０
> > ２１ １２/２１
> > ２２ １２/２２
> >
> >
> > 上記のように各セルがチェンジイベントで動作してくれればと
> >
> > それと文字などがB２に入力された場合は文字をC２、D2に反映したいです
> >
> >
> > A B C D
> > １２ １９ １９ １２/１９
> > h h h
> >
> > ここで色々お教えいただきそれらの構文を自分なりに組み合わせてみたのですが
> > 初心者の私にはレベルが高すぎるようで・・・
> >
> > 今までご親切にお教えいただいた構文を生かしてなく申し訳ありません。 ｈの位置がずれていました
朝から連続投稿すいません！ 必要な仕様が足りない
・B2よりB1が大きい場合は動作しない？それとも翌月のその日までを記載？
・B1，B2に入力された数値が日付として有り得ない場合はどうする？動作しないだけでよいのか？
・年の判定はどうする？現在の年を使用してよいのか？ >>963
> 必要な仕様が足りない
失礼しました
> ・B2よりB1が大きい場合は動作しない？それとも翌月のその日までを記載？
B１の方が大きければ空白になってくれればいいのですが
エラー表示がセルに表示されてもエラーはエクセルの設定で空白にできるので大丈夫かと思っています
月をまたぐことはありません
> ・B1，B2に入力された数値が日付として有り得ない場合はどうする？動作しないだけでよいのか？
１２２／１１１や１２／３５と表示されてもかまいません
文字が入力されてもそのまま表示したいです
> ・年の判定はどうする？現在の年を使用してよいのか？
年は考慮しなくても大丈夫です
長くて一週間の予定だけでしか使用しません
説明下手ですいません （汗 Dim a(10,20)
a(1,2)=3
上で2行目の1や2の数字のことを何て言うのでしょうか
初歩の質問で申し訳ありません。 あるソフトウェアが出力する
ログファイル（テキストファイルで行数は不定）をスペース区切りで文字列として読み込むコードを書いているのですが
ログファイルの先頭行のスペースの数が一定ではなく
単純に読み込むと先頭の数値が
A列目に入ったりB列目、C列目に入ったりして困っております
連続するスペースを一つのデリミタとして扱うか
（そうすればA列だけが空白になる）
もしくは先頭に連続して入っているスペースを無視する方法を探しているのですが見当たりません
皆様のお力添えをお願い致します >>970
自己レス
> 連続するスペースを一つのデリミタとして扱うか
> （そうすればA列だけが空白になる）
この方法は使えない事に気づきました
ログファイルの先頭（左端）
に数値が入っている場合もあるので
スペースが一つでも入っている場合では、入力される列が
A列とB列に変わってしまいます
先頭（左端）に連続して入っているスペースを無視する方法しか
無いかもしれません 連続レス申し訳ありません
必要な処理はもうちょっと複雑でした
GetOpenFilenameで開いたファイルを
Workbooks.Open(FileN,Format:=3,ReadOnly:=True)
で処理しているのですが
ログファイルの行中に連続して入っているスペースも一つずつカウントして空白列を作ってしまいます
必要な処理は
1) 連続したスペースを一つのデリミタとして区切り
2) 行先頭にスペースが入っていた場合は最初の文字が始まるまで削除もしくは無視する
といったものになると思います
何卒ご助力お願い致します >>975
それって固定長じゃないの？
全銀データみたいな奴
固定長なら、文字数数えて、データ区切り使ったほうが早いと思う 皆様ご回答ありがとうございます
>>972
ありがとうございます
正規表現は私にはちょっと敷居が高いようです
>>974
ありがとうございます
LTRIMで一度先頭スペースを抜いた中間ファイルを作るというのは
一つの手順としてあるかと思います
>>976
ありがとうございます
途中でエラーメッセージ行とかが
入るので全ての行が固定長
と言うわけではないのですが
データを処理したい行は固定長に近いです
問題は処理したい行の先頭に0〜3個のスペースが入ることです >>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
----------------------------- >>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 >>978
ありがとうございます
私も一行ずつ処理するべきなのかと思い始めました
その際
----------------
arr=Split(str," ") '空白で分割し配列に格納
----------------
だとデータ行中に空白が連続している場合
例えば
a b c d
のような場合でも
A列→a
B列→b
C列→c
D列→d
のように入力可能でしょうか？ >>980
わかりづらい説明にご親切にありがとうございます
感謝！
今から試したいと思います！ >>981
そんなもんマクロの記録で連続する区切り文字は1文字として扱うオプション使えばいいでしょ 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 は、文字列の先頭・末尾から、連続した空白類を除去する >>980
すみません
今試してみました
Ｃ列には期間の日が表示され
Ｄ列には機関の月日が表示され
仮にＢ２に文字が入力されたら
Ｃ２とＤ２には文字が表示され
Ｃ１とＤ１には日と月日が表示したいです
私にはなにをどうしたらいいのかまったくわかりませんでした
技術的にむずかしいでしょうか？
ググってみましたが出来そうにないです >>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 >>981
これで代入できる
Range("A1:D1") = Split(str, " ") >>983
！
ありがとうございます
やってみます
>>984
ありがとうございます
さすがにExcelで処理しているファイルをVBA以外で制御するのは無理です
>>987
ありがとうございます
正規表現は敷居が高い（奥深すぎ）ので敬遠していましたが
そのコードを手がかりに解析してみます
a b c d
a b c d
a b c d
のような場合でも
そのコードは使えますでしょうか？ >>988
ありがとうございます
この場合も処理可能でしょうか？
a b c d
a b c d
a b c d ファイルを開いてVBAで処理する系は
VBAのエディタがアップデート放棄しててユニコードに対応しないらしいのでやめた方がいいかも
Regexpでユニコード文字列を置き換える処理をこさえたりすればなんとかなるかもしれないが >>992
ご注意ありがとうございます
私の場合であれば処理するlogは
ASCIIのみなので問題ないかと思います >>986
ごめん
ちょっと何を言っているのか分からないからもう少し整理してから言葉にして
文字列や日付として破綻しているものでも可なのにその期間を出力せよっていうのはどういう意味？
仕様がちぐはぐで何をしたいのかが分からない
出力列を増やすのはのは対して手間は変わらないから自分でアレンジして
分からないならもっと基礎の部分を勉強するか諦めて関数式書いた方が早いよ >>995
すいません
関数を使ってみたいとおもいます
これか自分で勉強しレベルを上げていきたいと思います
あなたのおっしゃるとおりだと思います
今までお教えいただいたことを参考に
勉強していきたいと思います
ここの先生たちには本当に感謝しています このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 98日 13時間 51分 43秒 5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php レス数が1000を超えています。これ以上書き込みはできません。
