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/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と等価のメソッドを作る

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

>>555
修正

>データベース変換などは
データ変換などは

2020/10/11(日) 00:52:32.73

>>555
布教活動ご苦労さん
必要になったら勝手にRubyスレに行くから
帰っていいよ

2020/10/11(日) 08:15:59.41

>>555
データ変換てのは基本的な作法さえ知ってればEnumerableメソッド使わなくても特に困ることもないだろう
ただのループ構造をこねくり回してるだけでそのためにメソッドを割り当てるなんてお仕着せもいいところ

2020/10/11(日) 10:01:12.40

>>557-558
なぜ相手するんだ…

2020/10/11(日) 12:29:43.68

Acrobatを使用したプログラムを複数回実行すると初回だけ成功し
2回目以降は
実行時エラー2147467259(80004005)
エラーを特定できません
となります(idに代入する行でエラー)
終了処理に不備があってacrobatのプロセスが残っているのではと思いましたが
色々なサイトを見ても解決がわからない状態です。
どうすれば治りますか。
プログラムは次のレスを参照ください。

2020/10/11(日) 12:30:03.99

Dim objAcroApp As New Acrobat.AcroApp
Dim objAcroAVDoc As New Acrobat.AcroAVDoc
Dim objAcroPDDoc As New Acrobat.AcroPDDoc
Dim id As Long
Dim js As Object
Dim SaveName As String

id = objAcroApp.Show
id = objAcroAVDoc.Open(FilePath, "")

Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()
Set js = objAcroPDDoc.GetJSObject
SaveName = FolderPath & "\" & Replace(FileName, ".pdf", "")

'変換のうえテキストファイルとして保存
js.SaveAs SaveName & ".txt", "com.adobe.acrobat.plain-text"

'PDFファイルを変更無しで閉じる
id = objAcroAVDoc.Close(1)

'Acrobatアプリケーションを終了する。
id = objAcroApp.Hide
id = objAcroApp.Exit
Set js = Nothing
Set objAcroAVDoc = Nothing
Set objAcroApp = Nothing

2020/10/11(日) 18:37:51.01

どこだか忘れたけど、閉じる・解放はこの順番じゃないとダメって書いてあるサイトがあったぞ。

2020/10/11(日) 20:12:54.59

オブジェクト型にNothingを代入しても、参照ポインタが書き換わるだけでメモリが解放されるわけじゃないんで、順序はそれほど重要じゃない

2020/10/11(日) 21:39:34.57

>>560
必ず再現するなら同じ現象が発生する最小のコードを作ってみ

2020/10/11(日) 23:29:10.26

>>561
とりあえずDimでNewするのやめて様子見てみ

2020/10/12(月) 01:35:39.95

どうやって再度、実行できているのか？

仕事ができない人がよく言う説明。

2020/10/12(月) 08:27:00.05

>>560
タスクマネージャーを起動して、プロセスを終了させてから、実行すれば？

2020/10/12(月) 10:12:47.93

アクロバットがすぐに終了しないのは体感でも分かるレベル

2020/10/12(月) 18:47:34.51

2回目以降から1回目に戻る手順くらい書けよ！

2020/10/12(月) 21:34:54.79

おもいついた
>>530
最後にsubstituteでまとめて消せばよくね？

2020/10/12(月) 23:43:56.93

時間を戻そう

2020/10/13(火) 08:13:53.62

>>561
objAcroAppにCloseメソッドがあってそれを実行していないとかいうオチだったりして

2020/10/13(火) 09:32:19.92

>>572
普通の頭持ってたら
id = objAcroApp.Exit
がそれだと思うだろうに…

2020/10/13(火) 10:34:47.53

「.CloseAllDocs」ってメソッドもAcrobat.AcroAppにはあるらしいな
そしてExitだけじゃプロセスが残ることもあるらしい

まあAcrobatの環境ないから検証も何もできんけど、
安全取るならExitしたあとにプロセス監視してkillするしかないんじゃね
途中でエラー落ちしてもプロセスのこっちゃうらしいし

ちなみにどうでもいいが個人的にはExitとCloseは、意味的に異なると思う
だからExitとCloseが両方あってもおかしくないとは思う
でもExitがCloseを包括していても、それはそれでありだとも思う
Acrobat.AcroAppの公式ドキュメント見れてないからワイには答えが出せんわ

2020/10/15(木) 08:48:14.01

>>560です
皆さん本当にありがとうございます。
みなさんのご意見をプログラムに反映した後、
ソースを最小（adobeをオープン・クローズするのみ）
にしてもエラーです・・・(次レス参照)

タスクマネージャには
adobe CEF helper、adobe update serviceがありますが
前者は消しても湧いてきているように見えます。
パソコン再起動してもダメ、日付が変わってもダメです。

しかし、エラーになったあとちょうど24時間経過すると
無事実行できるようになることがわかりました・・・
24時間後の数分前はエラーでしたが
数分後は無事実行できました。

ちょうど24時間で消えるプロセスが存在するんだと思いますが
何かご存知のかた居ましたらご教示ください・・・

2020/10/15(木) 08:49:26.67

ソースを最小にするためところどころコメントアウトしてます
Dim objAcroApp As Acrobat.AcroApp
Dim objAcroAVDoc As Acrobat.AcroAVDoc
' Dim objAcroPDDoc As Acrobat.AcroPDDoc
Dim id As Long
' Dim js As Object
' Dim SaveName As String

Set objAcroApp = CreateObject( "AcroExch.App" )
Set objAcroAVDoc = CreateObject( "AcroExch.AVDoc" )
id = objAcroApp.Show
id = objAcroAVDoc.Open(FilePath, "")

' Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()
' Set js = objAcroPDDoc.GetJSObject
' SaveName = FolderPath & "\" & Replace(FileName, ".pdf", "")

'変換のうえテキストファイルとして保存
' js.SaveAs SaveName & ".txt", "com.adobe.acrobat.plain-text"

'PDFファイルを変更無しで閉じる
id = objAcroAVDoc.Close(1)

'Acrobatアプリケーションを終了する。
id = objAcroApp.CloseAllDocs←どっかのサイトでobjAcroApp.Hideの前に入れてました
id = objAcroApp.Hide
id = objAcroApp.Exit
' Set js = Nothing
Set objAcroAVDoc = Nothing
Set objAcroApp = Nothing

2020/10/15(木) 09:20:24.96

起動設定で、プロセスを殺すと、また再起動するアプリがある。
ウィルスチェックなどの、何かをチェックするアプリ

必ず、最低1つは起動しておくタイプのアプリ

そういうアプリは使わない方がよい。
何をチェックして、本社に送っているか、怪しい

会社に問い合わせて、再起動を止めるような設定を聞けば？

2020/10/15(木) 10:57:30.25

区分1～10のデータが記録されたcsvを区分ごとにExcelシート毎(シート名は1～10)に分割して読み込むvbaがどうしても出来ません…
ご教示いただけないでしょうか…

2020/10/15(木) 11:36:34.23

そんな説明でわかるわけがないので、
そこまで頑張って作ったコードとエラーメッセージを提示するのが最低限
そして、自分で何を試行したのかも説明すること

2020/10/15(木) 12:20:58.11

いつもの人

2020/10/15(木) 13:02:07.76

Ruby なら、これで最初の列だけを、出力できる

require 'csv'

# CSV ファイルを、1行ずつ処理する
CSV.foreach( "a.csv" ) do |row|
puts row[ 0 ]
end