Excel VBA 質問スレ Part65

2020/03/17(火) 16:27:20.88

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

※前スレ
Excel VBA 質問スレ Part64
https://mevius.5ch.net/test/read.cgi/tech/1575297834/

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

2020/04/22(水) 11:03:37.37

>>512
フリーだと激安だってwww
本当に何も分かって無いんだな。
VBAの場合は月70万も行けば良い方だ。

2020/04/22(水) 11:40:39.43

>>521
> 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
ゴメンな、糞会社はそうなんだろうなw

>> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す

まあ、そもそもまともな会社は
>>522
>> 日本語の理解力がないのかな？
>> 自慢にもならないことをいちいち書くとかバカじゃね？

まさかと思うけど3,000円/h相当の俺スゲーとか思ってる？w

2020/04/22(水) 11:48:33.04

すまん途中で送信しちまった

>>521
> 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
ゴメンな、糞会社はそうなんだろね
お疲れ様

>> まともな会社なら受ける時に調査費用と時間をもらってドキュメントを起こし直す

まあ、そもそもまともな会社は他社の糞コードの保守なんて滅多に受けないし

で、何ができたんだ？
>>510では過去形だけど>>325では今まさにやってることになってるけど、偶然この一週間で終わったのかな？
ますます辻褄合わせが大変になってるぞw

>>522
>> 日本語の理解力がないのかな？
>> 自慢にもならないことをいちいち書くとかバカじゃね？

まさかと思うけど3,000円/h相当の俺スゲーとか思ってる？

2020/04/22(水) 12:11:09.80

こういうのってこうやって段々長文になっていくよなw

2020/04/22(水) 12:39:44.42

客は選べない
クソな仕事でも黙々とこなすやつが結局は上に上がってく
文句ばっかり言うやつはそこまでの人間

2020/04/22(水) 12:42:08.80

>>523
プw
他人の書いたプログラム見たことすら無いとはw

まともに開発に絡んだことがあれば100人が100人他人のコードなんて読みたく無いんだよ。

引き継ぎという言葉も知らない、ググることも出来ない、保守という仕事が何をやるかも分からない。
二―トが背伸びは恥の元だぞ。

2020/04/22(水) 12:44:28.51

3000円/hが自慢?
何を言ってるんだ?
3000円/hは最低限の話だが。

アホだからそこに反応する。
2000円/hが主題だと言ってるだろうに。

2020/04/22(水) 12:47:10.01

>>526
客は選べない。
クソな仕事でも黙々とこなすやつが結局は上に上がってく
文句は客のいない所で発散する。

当然だがね。

2020/04/22(水) 12:51:44.35

暇なのはわかるけど
何日ひっぱるつもりなん

2020/04/22(水) 12:58:15.17

たびたび済みません
元のVBAのフォーマットから
新しいブックをコピーを教えて頂いたのですが
コピーする度に1回目にコピーしたブック内のシートの右に足されていく　みたいな設定は可能ですか？

具体的に言うと4月分をコピー
その次に5月分、6月分とコピーすると
初回(4月分)にコピーしたブックのシート右に足されていく

さらに欲張ると元のフォーマットで4月とか5月とか特定のセルに入力した文字がそのままシート名になってくれる

すみませんがやり方ありましたら御教授を宜しくお願いします。

2020/04/22(水) 13:20:05.68

>>527-529
指摘されて顔真っ赤になって３連投とかw

> 3000円/hは最低限の話だが。
自ら最低限を認めるとか偉いやん
で、なんでそんな恥ずかしい金額をいきなり出してきたんだ？w

2020/04/22(水) 14:11:10.05

>>514
例えばA!A1にリンゴっていれると単価だか購入数だかをB!から拾ってきてA!C1～F1に入れる感じの物？

多分VBAというよりエクセル関数VLOOKUPで済む話かと
VLOOKUP(A!A1, B!A:F, 3)

2020/04/22(水) 14:31:43.03

社内システムで書類となったものの特定の場所の値とエクセルの上の特定の場所の値が合っているか照合したいです。

そういったマクロ組む場合
1. 書類をスキャナーでpdfにする。
2. pdfをocr機能使って照合に使うシートとは違うシートにデータ転記。
3. 2.でデータ転記したシートの値と確認元のシートの値を照合する。

というのがぼんやり浮かんでるんですが、1-3までの流れでよりスマートな方法があるなら上の流れをどう変えたらいいか教えていただけませんか？
よろしくお願いいたします。

2020/04/22(水) 14:47:15.65

マクロで何とかなるスキャナーやOCRならいいんじゃないの？

2020/04/22(水) 15:04:32.48

>>532
日本語、ダメ過ぎwww
ここまで壊滅的に日本語出来ない奴は仕事も出来ないからニートになるw

"引き継ぎ"で恥かいたからってむきになるなよw

2020/04/22(水) 15:26:26.42

今度はニートとか言い出したぞw
恥ずかしい奴

>> 結局説明できなくなって理解力ガーとか低能が逃げる時によくやる手で笑うわ

2020/04/22(水) 17:33:29.11

>>534
OCR読み取りまでできるなら転記とかいらんけど
社内システムに、その数字をシステム的に参照できるAPIを準備してもらえよ

2020/04/22(水) 17:47:01.75

>>535-538
csvファイル関連のapiもかなり時間かかったので開発をつついてみます。
ocr使ってデータ転記しないと私の能力と使えるソフトやapiでは座標指定ができないから回りくどいやり方するつもりです。
今のところGoogleクラウドのocrがapi公開してるからそれにしようかなとぼんやり思ってるとこです。
アドバイスありがとうございました。

2020/04/22(水) 18:42:39.01

>>537
最低限ってのは俺が受けるとしたら最低限3000円/hは貰わないと受けないという話。

こんなの分からないのお前以外いない。
これまでのやり取りも酷いし、"引き継ぎ"についても分からない。
致命的だよ。

2020/04/22(水) 18:50:25.53

>>537
あと、その変な引用とアンカ―どうにかならんのか?

2020/04/22(水) 19:58:37.32

>>540
> 最低限ってのは俺が受けるとしたら最低限3000円/hは貰わないと受けないという話。
まじで言ってるのか？
勤め人ならそれでいいけどフリーだと税金や年金とかも自己負担だからやり始めた時ならともかく普通は5,000円/hでも不安だよ

> これまでのやり取りも酷いし、"引き継ぎ"についても分からない。
そういう御託は…

で、何ができたんだ？
>>510では過去形だけど>>325では今まさにやってることになってるけど、偶然この一週間で終わったのかな？

にまともなレスできるようになってからほざけよw

>>541
どこにアンカーがあるんだよw
あと>>の意味もわからんとか馬鹿すぎる

2020/04/22(水) 20:13:28.16

おまえら能ある鷹は爪を隠すってことわざ知っているか？

2020/04/22(水) 20:18:29.36

ここは質問スレ
ルールを守らないやつには誰も仕事なんか頼まない

2020/04/22(水) 22:05:00.09

爪出してないしとか言いそう

2020/04/22(水) 22:35:47.35

そもそも爪がない

2020/04/22(水) 23:56:54.01

CSVはComma Separated Valueの略ですが、
Commaはわざわざ略さなくても、既に,があるんだから、そのまま,SVでいいと思うんですよ。

2020/04/23(木) 00:04:13.90

で、VBAの質問なんですが、何にもないプロシージャって、何か使い道はありますか?
普通は全然意味ないと思うんですが、なんていうか0番スプライト的な感じで。

Sub Test()
End Sub

2020/04/23(木) 00:22:20.73

>>547
TXT,,SVより
TXT,CSVの方が誤読しにくい

2020/04/23(木) 00:30:31.41

誤読とか以前にわかりにくすぎるわ
一体何がいいのか

2020/04/23(木) 01:00:46.60

今さらcsvの命名にケチつけるなんて、極論が好きな反抗期なんだろ

中身のないプロシージャの意味とか、それ質問する理由も書かないしな

2020/04/23(木) 02:10:50.59

>>548
あるかないかならある

2020/04/23(木) 02:29:45.14

>>542
バーカw
VBAで5000/hの仕事なんてあるわけ無いだろw
ニートはこれだからw

御託?
お前が"引き継ぎ"という言葉の使い方について反論出来なくなっているわけだがw
反論あるならどうぞw

>>510での過去形について、分からんのか?
レスもまともに読めないのか。
>>477を読めw

引用に>>使うアホはいない。

2020/04/23(木) 03:04:53.13

木曜日にワッチョイが切り替わるんだよなあ
めんどくせえ

2020/04/23(木) 05:14:45.28

> 今、他人のそういうコードで四苦八苦してる。
↓
> ついでに言っとくと、正直に言えばたった今じゃねえ。
> 2週間程度前の話だ。

なんだそのバレバレな言い訳はw
流石に恥ずかしくないのか？

そもそもそれが本当だったとしても>>476の
> 出来てるから今、四苦八苦してるんだが。
が意味不明なのは変わらんし
何ができて、何に四苦八苦してるのか書いてみ

> 引用に>>使うアホはいない。
まじでわかってないのかよ…
自分自身への引用を明示してるだけだぞ
馬鹿すぎるわ

2020/04/23(木) 08:02:32.37

VBA質問スレで必死になるのはちょっと恥ずかしいよなあw

2020/04/23(木) 09:42:16.36

>>555
日本語勉強しろw

言い訳?
何を言ってる?
何の言い訳だよw
四苦八苦してる(た)ことに何も変わりはないぞ。
これのどこが言い訳になるんだ?

2週間前に四苦八苦してたとしても、こういう掲示板で発言する時は今四苦八苦してると発言することは十分あり得ると>>477で言ってる。
発言の主旨が変わらないからな。
そして、それがお前に何か指摘されたとか、自己弁護の為に言っているわけじゃないことは時系列から明白。

言い訳?

2020/04/23(木) 09:51:26.69

>>555
解析する時間もドキュメント作成する時間も費用も貰っているが他人のコード解析するのに四苦八苦してるんだがね。
これのどこが変なのかさっぱり分からん。

何ができて何に四苦八苦してるかの前に、お前は俺が何が出来てないと思ってるのか言えよ。

今までの話じゃ、お前の主張は解析する時間、ドキュメント作成する時間や費用を貰うと四苦八苦することが無くなるということのようだが、そんなこたあねえぞ。

2020/04/23(木) 09:51:33.56

>>557
「何ができて」の説明が一切なくて失笑

2020/04/23(木) 09:52:35.44

自分自身への引用でも>>なんて使わん。
>で十分だし、普通。

2020/04/23(木) 09:55:24.79

>>558
ドキュメント作成してるのに四苦八苦してるなら役に立たないドキュメントを作ったお前がアホなだけだけど？

あと、せめてレスを１つにまとめろよ
なぜかバカは同じ内容に複数レスで返すんだよな
まあ低能にまとめる能力を期待しても無駄かなw

2020/04/23(木) 09:55:54.13

>>559
バーカw
先にお前が、俺の何が出来ていないと思ってるのか説明しろ。
お前が俺の話のどこが理解出来て無いのかはこっちにゃ分からんのだよ。

2020/04/23(木) 09:56:33.89

>>560
自身のレスとお前のアホレスを混同されたくないだけw

2020/04/23(木) 09:57:01.84

いつまで続くんだコレ

2020/04/23(木) 09:57:12.84

>>561
バカ?
本当にバカ?

解析してドキュメント作るんだよ。
解析に四苦八苦してるんだぞ。

嗤えるわw

2020/04/23(木) 09:58:37.88

>>563
そんなもんは内容でわかる。
というか、むしろ邪魔で分かりにくいから>>541で指摘してるんだが。

2020/04/23(木) 10:00:29.56

>>562
アホなの？
>>476の「できてるから」の説明しろって話
自分で書いたことも理解してないのかよw

2020/04/23(木) 10:03:00.52

>>567
だから、金と時間を貰ってるというのが出来てると言ってる。

やり取り理解出来てる?
お前の指摘はまともな会社なら金と時間を貰ってるというものだった筈だが。

2020/04/23(木) 10:09:52.45

最低限、やり取りから解析に四苦八苦してるというのはまともな奴なら分かる筈なんだが。
とすれば、お前の言う金と時間を貰って、今まさにドキュメント起こす為の解析中(だった)なのが分かる筈。

これが前提なんだからドキュメントが既に出来上がってるなんてアホな誤解してたことは無いと信じたい。

2020/04/23(木) 10:18:34.00

関係ない人はこいつらをNGにすればいいで

2020/04/23(木) 10:24:08.71

まだやってるのか
完全に自粛ストレスだろうな

2020/04/23(木) 10:29:06.69

>>566
専ブラで引用の引用したことないのか？
まあその手の文句は専ブラの作者に言ってくれ

>>568-569
> だから、金と時間を貰ってるというのが出来てると言ってる。
あれ？
> 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
って糞ドキュメントしか作成できないアホって自白してますけど？
発注した客可哀想
まあ脳内だろうから問題ないか…

> やり取り理解出来てる?
うん、どんどんボロが出てるねw

2020/04/23(木) 11:08:06.42

>>572
???
ドキュメント作るための解析に四苦八苦してるのと、出来たドキュメントの出来に何の関係が?

お前がドキュメント作ったこと無いのがこれでバレたw

2020/04/23(木) 11:11:09.39

何か、お金と時間貰うとロボットが勝手に解析してドキュメント作ってくれると思ってるアホがいるようだ。

2020/04/23(木) 11:14:19.21

というか、解析に苦労しないんだったら、糞コードなんて言葉は無い筈なんだ。
どんなコードでも誰にでも理解出来て楽に読めるんだったら、綺麗なコードを心がけるというモチベーションすら起こらない。

2020/04/23(木) 11:21:51.04

>>572
あと自白っていうのがこれまたおかしい。
最初の主張通り、何ら矛盾が無いんだから自白じゃ無いだろ。
それとも、まだ理解出来て無い?

2020/04/23(木) 11:24:06.86

>>573-574
え゛っ、まじでドキュメント作成で四苦八苦してるって事で誤魔化せるとか思ってるの？

> 調査費用と時間貰ってドキュメント起こすことになっても四苦八苦は変わらん。
そうすると何が何と変わらんのか説明できないだろw

2020/04/23(木) 11:25:47.51

>>575-576
レスをまとめることもできない無能
しかも内容スカスカw

2020/04/23(木) 11:32:54.64

>>577
えっ?
何度も言ってるのにまだ分からない?

「解析に四苦八苦するのは、時間とお金を貰っても変わらない」という日本語が分からない?

時間と金を貰って無くても、貰ってても、どっちでも四苦八苦はするという意味が理解出来て無かった?

日本人ですか?

2020/04/23(木) 11:35:35.71

日本語が通用しない程だから始末に負えない。
"引き継ぎ"も碌に理解してないぐらいだからな。

2020/04/23(木) 12:11:20.51

>>564
これから2週間が山場

2020/04/23(木) 13:25:04.48

うまい

2020/04/23(木) 18:35:48.75

レベルの高すぎる人同士での口論はとてももったいない
俺はIf Then ElseとFor nextは辛うじて理解できそうなレベル

Do untillとかNextとかloopとか使いこなしたい条件が山ほどあって泣きそうだけど
ここの上級者たちは独学で覚えた？
同じ事やろうと調べでもどのサイトもいろんなやり方でどれが良いかも分からない

ここで聞くとさらりと答えだしてくれる人ってどういう頭の良さしてんだろ

2020/04/23(木) 18:56:32.85

基本的には場数
よい文章を書くには良い文章をたくさん読め
良いプログラムを書くためには良いプログラムをたくさん読めば良いんだが
まあ、よいプログラムをたくさん提供してくれる場がなぁ

2020/04/23(木) 19:20:59.53

>>584
ここ見てけばまぁ覚えやすいとか無難で間違いないとかそういったサイトありますか？
広告たくさんのサイトだろうが藁にもすがりたいほど身につけたくて…ノイローゼ気味

俺の業務に絞った時にVBAで何でもやらせようと無理せずに関数はエクセルである程度制御した方が後々メンテが楽なのがわかったので

恐らくloopの使い方を理解しないと絶対に乗り越えられない大きな壁が。。
それを作れたら後は数値の変更や応用でいけそうだけど脳が焼き付いてる

2020/04/23(木) 20:03:22.67

>>583
本当にレベルが高い人は口論なんかしないんだよ
スレを荒らすのはだいたい無職

2020/04/23(木) 20:05:39.90

>>585
まずはここにあるサンプルを、コピペせずに自分でキーボードから入力してみ
http://excelvba.pc-users.net/fol6/6_4.html

2020/04/23(木) 20:07:24.44

>>585
本買え
初心者むけのをまず数冊

昔はプログラム系の雑誌結構あったんだがなぁ

2020/04/23(木) 20:16:07.01

>>583
VBAの本って多いから学習しやすいはず

プログラマなら他言語の経験から
基本的な制御構文くらいは自然と分かる
VBAはプログラム言語としてはやさしい方

2020/04/23(木) 21:01:06.09

まずは何をしたいか、エクセルでこんな便利なのを作りたいとか、ヴィジョンをもてれば上達は早いと思う

2020/04/23(木) 21:28:22.57

そうだね

エクセルは小物ツール作りやすいから
実益を兼ねた練習を積めば上達するな

2020/04/23(木) 22:53:32.79

VBAなんて本腰入れてテキストで勉強するにはコスパ悪すぎる言語だと思うが・・・
「VBA」にやりたいことを付けてググったソースをコピペした方が早くないか？

2020/04/23(木) 23:13:30.67

本を見てプログラミングを勉強する時代は終わりだと思ってる
紙の方が読みやすいと思う人が多いだろうけど、本格的にやろうとしたらオンラインのドキュメントは必須だし、
画面上で文字を読む訓練をして慣れていかないと、いつまでも能率が上がらない

2020/04/24(金) 00:05:26.21

>>592
とりあえず動くものが作れればいいというなら、まあそうだな

>>593
学習リソースとしては、本かWEBかに本質的な差はないと思うが
中身の問題で、WEBは本ほど系統立てて編集されていないところが多いと思う

辞書だけで外国語マスターできるような人ならWEBだけでもいいけどな

2020/04/24(金) 00:19:26.49

>>592
>>593
書籍の学習は今でも必要だと
思うしさらにVBAだけでなく
他言語の経験があるといいな

VBAのスレで言うのも何だが
VBAプロパーのプログラムは
垢抜けない泥臭いのが多くて
その辺PHPと同じ感触がする

2020/04/24(金) 02:40:01.82

>>531
どなたか…四苦八苦して終わりません、、
お時間ある方がいましたらお助けを

2020/04/24(金) 03:41:33.98

>>596
そうだな、取りあえず質問する時に相手に伝わるか考えながら質問した方が良いかな。

>元のVBAのフォーマット
???
これは何のこと?
何を言ってるの?

シートのコピーで書式だけコピーしたいということ?
だったらそんな機能は無いと思うから、あとは工夫でどうにかする。
Rangeの書式だけコピーはあるから、シートの追加と書式だけコピーの複合にするか、俺ならそもそもコピー元の書式を全部コードで実現してシ一トの追加とその書式を実現するコ一ドでやる。

右に追加というのが特定のシート(4月)の右というならコピーだろうがシートの追加だろうがそのものずばりの引数がある。
WorkSheets.Copy、WorkSheets.AddでクグるとMSのぺージが見つかるから、そこにサンプルもある。
一番右に追加していくというなら、上の特定のシートの部分に最後のシートを指定すれば良い。
最後のシートってのはシートの指定方法は名前と番号の2通り有るので、今回は番号で最後を表現する。
最後ってのはシート数が7個あれば7番目になる。
この場合の7個ってのはシートの個数。
シートの個数はこれまたそのものずばりのプロパティがある。
(これも上のページのサンプルそのもの。)

2020/04/24(金) 04:14:59.23

>>531
5回読んだけど理解不能
画像や絵使って説明してほしいわ

2020/04/24(金) 09:43:49.82

>>583
いつも同じこと感じています

2020/04/24(金) 12:06:13.25

他の人は知らんが俺は独学でコマンドマニュアル見たり参考書買ったりしてた
例えば数値でも加算を繰り返してどこでエラーがでるかとかを
実際にサンプル作って実行することをひたすら満足いくまで繰り返したりしたな
学校の勉強と並行してやってたからいつも寝不足だったし

2020/04/24(金) 16:20:00.14

>>594
学習するのに何が効率いいかっていうよりも、
VBAを学習すること自体に対するリターンって意味でコスパが悪いと言いたかった

特にオフィス製品上でしか実行できない、やりたいことは単純な事が多いっていう特性上、
学習することでググったソースのコピペ以上に得られる物はあるのか？と。

内容を理解することでちゃんとしたコードが書けるってメリットはあるかもしれないが、
VBAで綺麗なコードを書けてもねぇ・・・
VBAのコードを拘るリソースは他に回すべきだ

2020/04/24(金) 17:35:34.28

Sub Macro1()
　　ChDir "c:\tmp"
　　f = Dir("*.txt")
　　c = 1
　　Do While f <> ""
　　　　Open f For Input As #1
　　　　For r = 1 To 6
　　　　　　Line Input #1, s
　　　　　　Cells(r, c) = Split(s, vbTab)(2)
　　　　Next
　　　　Close #1
　　　　f = Dir
　　　　c = c + 1
　　Loop
End Sub

ここで↑の
「指定した場所に入ってる全てのテキストのエクセル化した時の特定の列と行をエクセルシートに一気に読み込む」
という神の様なコードを教わったものです。

列と行の開始はこのままでいいのですが、テキストの行が空白になるまでエクセルに読み込む
というやり方に変える事は可能でしょうか。

これが職場の環境を大きく変えすぎて2人、本当に課からいなくなって現場に飛びました。
効率化しすぎて他でも応用できるようにしろと皆の前で大声で怒鳴られ泣けても知恵が出てこない
ゆっくり本読んで覚えていきたいにもまず最優先で作れと室内であんなに大声で怒られて
ネットで調べても調べ方すらわかっていなく
異動したい、何卒すみません

2020/04/24(金) 18:38:54.34

>>601
普段の仕事がExcelならコスパいいだろ

2020/04/24(金) 18:40:11.73

一から十まですべて教わらないとできないような人はやめたほうがいいわ
実力以上のコードを教わったところで何も応用できず周囲の期待には応えられない
５ｃｈで教えてもらって作りました
これ以上は分かりませんって正直に言えばいい

2020/04/24(金) 18:49:29.12

ForをDoにして、NextをLoop Until S=""かな
つか、二人分の人件費が浮くような作業なら、ちゃんとした会社にシステム化たのめよ

2020/04/24(金) 18:51:14.82

まあこれで動いたら>>602がさらなるドツボにはまるのをニヤニヤしようぜ

2020/04/24(金) 18:53:25.05

効率化して上司から怒鳴られるってどんな職場だ
上司がクソすぎ

2020/04/24(金) 19:12:23.15

背伸びしても上手くいかないもんだね？

2020/04/24(金) 19:16:29.79

>>602
ここに解決方法が書いてある
https://www.manpowergroup.jp/column/tenshoku/phrases-and-writing-of-change-wish.html

2020/04/25(土) 00:00:18.00

コードくれくれ君

2020/04/25(土) 00:25:36.55

画像上部の21～20日間隔の日付のセルの塗り潰しを下の1～30日間隔の日付に塗り潰し変えたいんですがどうしたらいいですか？

・上部をforで2行目の最終列までループ
・ifで塗り潰し判定がTrue
・？？？
・？？？
・下部をforで2行目の最終列までループ
・ifで対象年月日間隔だったら塗り潰す

と、こんなイメージなのかなと思ってはいるんですが、？？らへんの処理がわかりません。

https://i.imgur.com/I6hiP5r.png

2020/04/25(土) 00:30:28.43

次から次へと馬鹿が出てくるのはなぜ？

2020/04/25(土) 00:36:47.04

Functionの任意引数(Optional)なのですが、初期値はstringかlong型のみだけしかダメなのでしょうか？
シート名objectの引数で、省略したときにActivesheetを返したいのですが、「定数式が～」のエラーが出てしまいます。
やはり、IFとIsMissingを使うしかないでしょうか。

Function test(Optional objシート名 As Worksheet = ActiveSheet)
End Function

2020/04/25(土) 00:42:53.79

そもそも引数とか型の意味理解してる？

2020/04/25(土) 00:44:19.85

>>613
規定値に使えるのは定数値だけ
変数、プロパティ、関数などは使えない
だからActiveSheetも対象外

2020/04/25(土) 00:50:04.58

>>611
その画像で説明すると、D3:K3をコピーしてC10:J10に書式貼り付けするだけでは

2020/04/25(土) 00:52:04.34

>>611
D2からK3をコピーしてC9に貼り付けて C2をK9に貼り付けるだけじゃないの？
VBA使わない方が早そうなんだけど

**デフォルトの名無しさん** (ｽﾌｯ Sd94-S0vp) · 2020/04/25(土) 00:53:34.41

>>611
塗りつぶす条件がわからなければわからない

2020/04/25(土) 00:58:07.71

>>602
Ruby なら、row.empty? で空行かどうか、判別できるけど

require 'csv'

CSV.foreach( "input.csv" ) do | row | # 1行ずつ処理
break if row.empty? # 空行なら、終了

puts "#{ row[ 0 ] } : #{ row[ 1 ] }"
end

入力ファイル・input.csv
あ,いう
a,bc

1,23

出力
あ : いう
a : bc

2020/04/25(土) 01:41:16.85

>>602
読み込みを止める条件が空行とEOFの2つになると、とたんに処理が面倒になるんだよな
こういう時はLine Inputを別Functionに飛ばすとすっきりするんだけど、とりあえず汚い方法で書いてみた

Sub Macro1()
　　ChDir "c:\tmp"
　　f = Dir("*.txt")
　　c = 1
　　Do While f <> ""
　　　　Open f For Input As #1
　　　　s = "s"
　　　　r = 1
　　　　Do While Not EOF(1) And s <> ""
　　　　　　Line Input #1, s
　　　　　　If s <> "" Then Cells(r, c) = Split(s, vbTab)(2)
　　　　　　r = r + 1
　　　　Loop
　　　　Close #1
　　　　f = Dir
　　　　c = c + 1
　　Loop
End Sub

2020/04/25(土) 02:03:19.21

>>615
そうなのですね、ありがとうございました。