Excel VBA 質問スレ Part68

2020/08/30(日) 11:55:27.33

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

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

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

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

2020/10/02(金) 16:51:14.94

>>453
配列のUpperが何を意味してるのかいまいち分からんがこんな感じで良いんか？

Line Input #1, TargetDate
BeforeArray(0, Ubound(BeforeArray, 2)) = ファイル名
For文[1～190](BeforeArrayにSplit(TargetDate, ″,″)を放り込む)
ReDim Preserve BeforeArray(0 to 190, Ubound(BeforeArray, 2)+1)
Do Until EOF(1)
Line Input #1, TargetDate
For文[1～190](BeforeArrayにSplit(TargetDate, ″,″)を放り込む)
ReDim Preserve BeforeArray(0 to 190, Ubound(BeforeArray, 2)+1)
Loop

2020/10/02(金) 18:32:48.78

>>453
こういうことじゃないのか

targetdata = buf & "," & targetdata

2020/10/02(金) 22:17:00.26

>>455
サイドブレーキを使う坂道発進をダサイと感じるようなもので、
どう考えてもシート格納が合理的なのに、無理して配列を使うわけですよ。

2020/10/02(金) 23:43:54.67

CSV の規格では、各要素をクォート文字で囲めば、
各要素中に、列区切り文字も入れられる

"a,b", x

Ruby などのCSVライブラリを使わず、
自力で、列区切り文字で分割すると、バグるだけ

CSVの規格を知らない香具師が、よくやってる

2020/10/03(土) 00:18:46.98

csvに規格ってあったんだ

2020/10/03(土) 07:11:14.79

ExcelでCSVをダブルクリックで開いて編集、上書きして事故る人が多いね

2020/10/03(土) 07:17:22.78

>>460
一応あるけど結局Excelで読めないとダメって言うケースが大多数だったりする
http://www.kasai.fm/wiki/rfc4180jp

2020/10/03(土) 08:43:50.77

そのRFCって、たくさんあるローカルルールの1つを紹介してるだけだよな
強制力もなさそうだし、現時点ではあんまり意味がなさそう

2020/10/03(土) 11:51:59.59

>>459
マイクロソフトの製品はそれに沿っているものがあるが、クォーテーションがついたり、つかなかったりするのは、人間にとってもタチが悪く、完全に失敗した仕様と結論が出ている。

**459** (ﾜｯﾁｮｲ d32c-IT45) · 2020/10/03(土) 13:01:37.98

列区切り文字は、必要なければ省略できる

つまり、x も、"x" も同じ。
全ての要素に、付けてもよい

ただし、"a,b" みたいに要素内に、
行区切り文字・列区切り文字・クォート文字を含む場合は、省略できない

**459** (ﾜｯﾁｮｲ d32c-IT45) · 2020/10/03(土) 13:03:38.87

>>465
修正

>列区切り文字は、必要なければ省略できる
クォート文字は、必要なければ省略できる

2020/10/03(土) 13:04:25.84

できないって言われましても強制力無いですし

2020/10/03(土) 13:34:48.02

まあそもそも多数の実装が出てからそれ集めて決めた仕様だからな

2020/10/03(土) 19:43:36.45

そういやあれ何だろうな。
QueryTableだとセル内改行でずれるのに、
ADOだとずれないとか。

2020/10/04(日) 19:09:07.88

配列を戻す自作関数を呼び出し先Subから複数回実行して、配列を結合したい
んだけど、どうすればできますか？ redim preserveとUBoundを使うのかも
しれないけど、いい感じにまとまったコードが書けない。
例えば、下の関数を、別のSubから2回実行させて、
「Ary(3) ※中身：path1,path2,path1,path2」
の結果を得たいです。

Function TestFunc()
Dim testPath(1)
testPath(0) = "path1"
testPath(1) = "path2"
'return
TestFunc = testPath
End Function

2020/10/04(日) 19:09:08.25

配列を戻す自作関数を呼び出し先Subから複数回実行して、配列を結合したい
んだけど、どうすればできますか？ redim preserveとUBoundを使うのかも
しれないけど、いい感じにまとまったコードが書けない。
例えば、下の関数を、別のSubから2回実行させて、
「Ary(3) ※中身：path1,path2,path1,path2」
の結果を得たいです。

Function TestFunc()
Dim testPath(1)
testPath(0) = "path1"
testPath(1) = "path2"
'return
TestFunc = testPath
End Function

2020/10/04(日) 19:09:56.24

連投すいません

2020/10/04(日) 19:15:03.93

注意

ID:mqiPq7lq0

いつもの馬鹿です

2020/10/04(日) 21:13:23.82

>>471
検索したらいいんじゃね

2020/10/04(日) 21:42:10.14

>>471
例えとかいい感じとかじゃなくて正確にコードを提示してどの部分をどうしたいのか明確に説明した方がいいよ

2020/10/04(日) 21:43:28.32

後出し続けて全部作ってもらおうという魂胆の奴だぞ

2020/10/05(月) 01:21:09.51

VBAからIEを操作して、タグを指定して.valueやselctedで自動化しているのですが、ヤフオクの商品説明だけどうしても値の挿入ができません。
Tabや近い要素をフォーカスしたりクリックし、SendkeyなどでShift +Tabからエンダーなど試していますが、一向に解決できません。
直接でか無くてもカーソルが点滅させれれば、クリップボード経由で貼り付けるような仕様にしようと考えています。

2020/10/05(月) 07:08:41.25

漏れは、Ruby, Selenium Webdriver で、ブラウザを自動操作して、
send_key で、ユーザー名・パスワードを自動入力して、ヤフーにログインしてる

require "selenium-webdriver"

options = Selenium::WebDriver::Chrome::Options.new
options.add_option( :detach, true ) # ブラウザを切り離す
options.add_argument( '--start-maximized' ) # 画面最大

driver = Selenium::WebDriver.for :chrome, options: options
driver.manage.timeouts.implicit_wait = 10 # default timeout

driver.navigate.to "https://login.yahoo.co.jp/config/login_verify2?.src=ym";

element = driver.find_element(:id => "username")
element.send_key "ユーザー名"

driver.find_element(:id => "btnNext").click

element = driver.find_element(:id => "passwd")
element.send_key "パスワード"

driver.find_element(:id => "btnSubmit").click

**478** (ﾜｯﾁｮｲ d32c-IT45) · 2020/10/05(月) 07:11:02.53

そもそも、IE なんか動くのか？

漏れは、Chrome

2020/10/05(月) 12:57:11.88

>>475
すみません。

Sub test
Dim i,ary()
For i = 1 to 2
ary = TestFunc ※ary配列の要素の最後に呼び出した配列を追加していきたい
Next
End

2020/10/05(月) 13:22:13.75

配列に配列を追加するのを初心者がつくるなら
追加する2つの配列と結果を格納する配列の計３つを用意して順番に格納すればできないかな？

2020/10/05(月) 14:35:29.71

>>480
いい加減にしろや糞が

2020/10/05(月) 14:54:20.99

>>471
redim preserveとUBoundを使うのかも

まあしかし、その処理ほんとに配列でやるのが良いのか検討したほうが良いんだが
VBAコレクション系弱いからなぁ

2020/10/05(月) 15:05:07.42

検索すればすむのにね

2020/10/05(月) 17:50:38.43

>>481
>>483
ありがとうございました。

2020/10/05(月) 17:58:27.13

喧嘩腰だなあ
何しにきてんのさ

2020/10/05(月) 18:26:34.61

くれくれ君だからしょうがないだろ

2020/10/05(月) 19:48:49.79

>>484
F1キー押す方が早くね？

2020/10/05(月) 19:51:04.71

>>488
押すだけならワンキーだけど、オンラインヘルプはそこからが長い

2020/10/06(火) 10:31:57.17

大人の対応でうまく誘導してやろうぜ

2020/10/07(水) 19:45:01.41

下記のように特定の文字を削除して、改行をやめて1行文にしたいのですがコードのご教示いただけないでしょうか

やんやんつけ棒§
めちゃ美味い

ポテトチップス§
めちゃ美味い

↓

やんやんつけ棒めちゃ美味い

ポテトチップスめちゃ美味い

2020/10/07(水) 20:04:32.74

まともなテキストエディタ(VSCodeとかサクラエディタとか)で開いて正規表現置換で§¥r¥を空に置換すればよい

2020/10/07(水) 20:05:03.03

訂正
§¥r¥n

2020/10/07(水) 20:27:15.03

>>492
なるほど…めちゃ助かります。ありがとうございます。

2020/10/07(水) 21:05:04.00

もっと面白い質問しろよ

2020/10/07(水) 21:08:11.63

やんやんつけ棒って何？

2020/10/07(水) 21:08:37.26

申し訳ありません、もう一点

A1：私は実は理学部出身
A2：の元々は地質学者です
A3：
A4：こうした南鳥島で
A5：
A6：レアアースの濃集が
A7：起こる
A8：
A9：というのは
A10：
A11：特徴的な層準に
↓
A1：私は実は理学部出身
　　の元々は地質学者です
A2：こうした南鳥島で
A3：レアアースの濃集が
　　起こる
A4：というのは
A5：特徴的な層準に

下の行に文字列 → ２行の文章として、改行を入れてExcelの１マスにまとめる
下の行が空白 → 1行の文書なのでそのまま

これをなんとかVBAで自動化したいのですが記述を教示願えますでしょうか

面白くない質問ですみません…

2020/10/07(水) 21:11:26.09

>>497
その条件2つそのままコードに直していけるよ

2020/10/07(水) 21:17:21.39

改行がLfなのかCrなのかCrLfなのか知らんが
Replace("改行入りの文字列", vbLf, "")

2020/10/07(水) 21:58:27.94

>>499
そんなことしたら改行しなくなるが…

2020/10/07(水) 22:16:39.68

いつものクレクレ君かな

2020/10/07(水) 22:51:28.53

・コードを要求
・追加で教えて

いつもの人だね

2020/10/07(水) 22:54:48.87

普通に書けばできることを聞く意味が分からん

もしかして書けないの？
書けないならやめればいいのに

2020/10/07(水) 22:56:25.93

>>498
>>499
ありがとうございますm(__)m

2020/10/08(木) 01:49:40.56

>>497
VBAに慣れている人なら簡単に自動化というかVBAで組める内容ではある
問題はこの程度の内容を質問するより先に、自力でできるとこまで自分で
やらなかった最初の一歩が間違っているんだと思う

2020/10/08(木) 09:04:33.67

CSVとして保存
VSCode等のまともなエディタで開く
([^¥r]+)¥r¥n([^¥r]+)を”$1¥r¥n$2”に置換
¥r¥n¥r¥nを¥r¥nに置換
Excelにインポート

>>492同様にワンショットでいいならこんな感じでいけるんじゃね

2020/10/08(木) 14:32:22.56

それができないのが初心者

2020/10/08(木) 15:37:32.47

クレクレ君のより煽ってる奴のがうざいんだけどね
VBAだけが人並にできるからこのスレにいつも欠かさず覗きにきてる感じか？
いつものお前が邪魔ですよお

2020/10/08(木) 15:59:16.76

>>508
大丈夫スルーしてるから
遠まわしでも構うと同列に

2020/10/08(木) 17:05:05.08

>>508
くれくれ君本人乙

2020/10/08(木) 19:30:11.76

>>507
できないことは問題じゃない
やろうとしないことが問題

2020/10/08(木) 19:55:49.61

たしかにやろうとしないことが問題
てのは御指摘のとおりですね。すみません。
映像制作を生業としてますが普段tipsを聞くのりで聞いてしまいました。

2020/10/08(木) 20:04:37.46

>>512
5chなんて便所の落書きなんだからそれでいいと思う。
ただ、まともな返事を期待して馬鹿を見ても仕方ない場所でもあるけれど。

**デフォルトの名無しさん** (ｽﾌｯ Sdea-gn5F) · 2020/10/08(木) 21:04:52.28

ただでさえ印象悪いのにどうでもいい言い訳まで付けてさらに印象悪くするよくあるパターン

2020/10/09(金) 00:24:11.53

Dim dw As Date
Dim i As Integer

Sub test()
'ランダムに並び替える

Randomize
'乱数を入れる
For i = 1 To 200
Cells(i, 2) = Rnd()
Next i

'乱数で昇順並び替え
Range("A1:B200").Sort _
Key1:=Range("B1"), Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin

'乱数を削除
Range("B1:B200").Clear

dw = DateAdd("S", 5, Now)
Application.OnTime dw, "test"

End Sub

2020/10/09(金) 00:26:14.42

>>515
のdw = DateAdd("S", 5, Now)
Application.OnTime dw, "test"
を入れると、
「実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。」
となってしまいます。

「マクロのセキュリティ」は「すべて有効」にしています。

どうすればいいでしょうか

2020/10/09(金) 00:56:17.14

>>516
そのプロシジャを標準モジュールに書く

CellsとかRangeとか、ちゃんとシート指定しといたほうが良いぞ

2020/10/09(金) 01:28:40.34

>>517
できました！
＞CellsとかRangeとか、ちゃんとシート指定しといたほうが良いぞ
わかりました

ありがとうございました。

2020/10/09(金) 16:14:30.36

1,1,2,2,3,4,4,4,5,6
を
1-1,1-2,2-1,2-2,3,4-1,4-2,4-3,5,6
に変換したいのですが、どういうコード書けばよいのでしょうか？

2020/10/09(金) 16:19:59.95

連想配列使ってカウントするか(0 to 対象の値のMax)の配列を用意して、Array(対象の値)にカウントするかが１番頭使わなくて済むかな？

2020/10/09(金) 16:55:39.01

かなり前だけどこのスレで教わったアドバイスが今やってることでピンときた
タブ増やして進めてくより
userformをhideとshowで工程進めてくみたいにしたほうがいいわ
ありがとうかなり前に教えてくれた人！

2020/10/09(金) 17:52:44.19

>>519
fori=1 to 要素数(※要素数はカンマで区切られた数)
数字=数字＆ “-” ＆ i
next i
みたいな感じで
前の数字と違ったら数字をリセット
(iが1ならこの処理はしない)
要素がひとつなら処理せず次のiに

2020/10/09(金) 18:03:17.75

next i って書く人嫌い

2020/10/09(金) 18:15:01.53

かなり前の話と言えば
昔Privateで書かれたプロパティを
外部から取得する方法を書いてた人がいたけど
あれどうやるんだったっけ

2020/10/09(金) 18:33:13.76

内部から漏洩させるのが確実

2020/10/09(金) 18:36:07.52

>>523
それ以前にまったく要望を満たしていない

2020/10/09(金) 21:13:45.01

>>517
俺はブックも必ず指定するけどね。

2020/10/09(金) 21:15:25.62

>>519
どうしたいのかもう少し言葉で説明してくれる?

2020/10/09(金) 21:41:09.60

>>519
普通にカウントアップして、1から2に、2から3に上がるときにカウンターリセット。

2020/10/09(金) 21:44:54.18

1つしかなかった時に連番を付けない処理が一手間多くて面倒
データの先読みが必要になる

2020/10/09(金) 21:49:11.48

出力タイミングを次の数字を見てからにすれば楽

2020/10/09(金) 21:49:18.81

1個でも複数でも変わらない
おかしな考え方してるんだろう

2020/10/09(金) 21:49:40.29

>>528
1.処理速度
2.低コスト
3.低ステップ
4.読みやすさ

優先順位はとりあえずこんな感じで頼むわ

2020/10/09(金) 22:02:55.54

次の数字を見るかどうかの所で配列の最後かどうかも判定する必要があって面倒
シンプルでうまい方法があるんなら言葉じゃなくてコードで答えてくれ

2020/10/09(金) 22:06:14.03

splitでカンマ区切りの配列化
instrで個数確認
かね？

2020/10/09(金) 22:07:17.45

>>534
Uboundで判定して抜ければいいじゃん

2020/10/09(金) 22:19:01.76

>>536
ちゃんと動くコード書いてみて

2020/10/09(金) 22:24:25.52

Sub Macro1()
　　Dim a(), b()
　　a = Array(1, 1, 2, 2, 3, 4, 4, 4, 5, 6)
　　u = UBound(a)
　　ReDim Preserve a(u + 1)
　　ReDim b(u)
　　a(u + 1) = a(u) + 1
　　x = a(0) + 1

　　For i = 0 To u
　　　　If a(i) - x Then
　　　　　　c = 1
　　　　Else
　　　　　　c = c + 1
　　　　End If
　　　　If c = 1 Then
　　　　　　b(i) = a(i)
　　　　　　If a(i) = a(i + 1) And u - i Then b(i) = b(i) & "-1"
　　　　Else
　　　　　　b(i) = a(i) & "-" & c
　　　　End If
　　　　x = a(i)
　　Next

　　Debug.Print Join(b, ",")
End Sub

2020/10/09(金) 22:47:08.38

これよりシンプルにするのは俺には無理だった

Sub Macro1()
　　Dim a$(), b()
　　a = Split("1,1,2,2,3,4,4,4,5,6", ",")

　　u = UBound(a)
　　ReDim Preserve a(u + 1)
　　ReDim b(u)
　　a(u + 1) = a(u) + 1
　　x = a(0) + 1

　　For i = 0 To u
　　　　b(i) = a(i)
　　　　c = c + 1
　　　　If a(i) - x Then c = 1
　　　　If (c > 1) + (c = 1) * (a(i) = a(i + 1)) * (u - i) Then b(i) = b(i) & "-" & c
　　　　x = a(i)
　　Next

　　Debug.Print Join(b, ",")
End Sub

2020/10/09(金) 23:08:21.94

b(i) = b(i) & "-" & c
↓
b(i) = b(i) & -c

2020/10/09(金) 23:19:19.22

プログラミングのお題スレにも、たまにあるけど、
次の要素を先読みするのは面倒

スタックのpeek みたいに、要素を読み取るだけで、削除しない関数があればよい

2020/10/10(土) 06:22:18.37

Ruby では、

# 一旦、整数の2次元配列にする。[[1, 1], [2, 2], [3], [4, 4, 4], [5], [6]]

result_ary = input_ary = "1,1,2,2,3,4,4,4,5,6".split( "," ).
chunk_while{ |prev, nxt| prev == nxt }.each_with_object( [ ] ) do |ary, acc| # 蓄積変数は配列
if ary.length == 1
acc.push( ary[ 0 ] )
else
ary.each_with_index do |num, idx|
acc.push( "#{ num }-#{ idx + 1 }" )
end
end
end

puts result_ary.to_a.join( "," ) # カンマ区切り

**542** (ﾜｯﾁｮｲ 672c-Dl/i) · 2020/10/10(土) 06:24:55.49

>>542
修正

># 一旦、整数の2次元配列にする。[[1, 1], [2, 2], [3], [4, 4, 4], [5], [6]]
一旦、文字列の2次元配列にする

**542** (ﾜｯﾁｮｲ 672c-Dl/i) · 2020/10/10(土) 06:29:37.77

>>542
修正

>result_ary = input_ary = "1,1,2,2,3,4,4,4,5,6".split( "," ).
result_ary = "1,1,2,2,3,4,4,4,5,6".split( "," ).

2020/10/10(土) 06:39:31.44

データの種類が少なければ連想配列

2020/10/10(土) 09:37:35.06

先読みって考えるから面倒なのでは？
後出しって考えればいいのでは？

2020/10/10(土) 09:43:21.90

てかあの程度の仕様なら自分で書けよって思う
あれぐらいで書けないってのは根本的にプログラミングの基礎分かってないでしょ
forとifで一度自分で書いてみろと

2020/10/10(土) 11:33:09.64

書く気が無いからコードくれと言ってるんじゃないの

2020/10/10(土) 12:12:33.28

いつものあいつでしょ

2020/10/10(土) 14:51:13.18

書けない奴「いつもあいつでしょ」

2020/10/10(土) 15:12:08.20

煽って自演のいつもの馬鹿

2020/10/10(土) 15:36:01.73

おじさん「煽ってなんちゃら」

2020/10/10(土) 15:38:43.61

バグってハニー

2020/10/10(土) 17:43:29.69

いつものあいつ確定

**542** (ﾜｯﾁｮｲ 672c-JAxH) · 2020/10/10(土) 22:30:05.80

データベース変換などは、Ruby のEnumerable のメソッドを見て、
シェル芸とか、プログラミングのお題スレの問題を解いた方がよい

VBA は可読性が悪すぎて、作っても再利用できない。
OSS で全会社共通で、RubyのEnumerable 相当のメソッドを作って公開するべき！

他言語ではたいてい、Rubyと等価のメソッドを作る