Excel VBA 質問スレ Part67

2020/06/26(金) 02:01:29.56

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

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

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

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

2020/08/28(金) 23:47:50.15

newfilename = Format(DateSerial(Year(Now), Month(Now) - 1, 1), "yymm")

2020/08/29(土) 00:17:46.05

来年でIEなくなるんか？
IE制御で作ったVBAファイルはどうなってしまうん

https://news.livedoor.com/article/detail/18778408/

2020/08/29(土) 00:20:59.98

>>959
ヘルプといいますが色々なサイトを見ましたが私の頭では理解できず・・
やむを得ずお伺いしました
>>960
この式で出来ました！本当にありがとうございます！

2020/08/29(土) 00:54:05.51

00014500-1
のような、数字以外が入ってる文字列から
前ゼロを取りたいです。
どうすれば良いでしょうか
ゼロは先頭以外にもあるので
replaceで削除するのは無理です。

2020/08/29(土) 01:26:16.94

>>963
自分の意思で呼吸を30分止めてご覧
それができなければVBAを使う資格なし

2020/08/29(土) 01:42:59.60

>>963
020-040 は 20-40 にすればいいの？

2020/08/29(土) 04:49:38.60

>>965
はぃ、それで良いです
言葉足らずですみません

2020/08/29(土) 05:11:12.22

>>966
Sub Macro1()
　　Dim s1 As String
　　Dim s2 As String
　　Dim s3 As String
　　Dim c As String
　　Dim i As Integer
　　s1 = "001100-004400-007700"　'入力
　　s2 = ""
　　s3 = ""
　　For i = 1 To Len(s1)
　　　　c = Mid(s1, i, 1)
　　　　If "0" <= c And c <= "9" Then
　　　　　　s2 = s2 & c
　　　　Else
　　　　　　If s2 <> "" Then
　　　　　　　　s3 = s3 & s2 * 1 & c
　　　　　　　　s2 = ""
　　　　　　Else
　　　　　　　　s3 = s3 & c
　　　　　　End If
　　　　End If
　　Next
　　If s2 <> "" Then
　　　　s3 = s3 & s2 * 1
　　End If
　　Debug.Print s3　'出力
End Sub

2020/08/29(土) 05:37:03.41

入力データにピリオドが入ることはないのか？

2020/08/29(土) 05:42:52.81

あ、平気か

2020/08/29(土) 06:40:50.33

そんな難しいことしなくてもこれでよくないか

Sub test()

Dim testStr As String
Dim rtnStr As String
Dim cnvNm As Long

testStr = "000070-00100-01230"

For i = 1 To Len(testStr) + 1

s = Mid(testStr, i, 1)

'数値か判定
If (IsNumeric(s)) Then
strNum = strNum + s
Else
'数値に変換
cnvNm = Val(strNum)
rtnStr = rtnStr + Trim(str(cnvNm)) + s
strNum = ""
End If
Next
End Sub

2020/08/29(土) 06:44:47.53

区切り文字が-だけならsplitして終わる気もするけど
何が入ってるかわからんなら1文字ずつみるしかないのかな

2020/08/29(土) 07:17:10.36

区切りはハイフンだけです
すみません
分けて各々数字扱いすれば良かったですね
書いてみます

2020/08/29(土) 08:56:00.81

デリミタが"-"だけならもっと簡単になるね

Sub test2()

Dim strArray() As String
Dim rtnStr As String

testStr = "000070-00100-01230"

strArray = Split(testStr, "-", , vbTextCompare)

For i = 0 To UBound(strArray)

rtnStr = rtnStr + Trim(str(Val(strArray(i))))

If(i <> UBound(strArray)) Then rtnStr = rtnStr + "-"
Next

End Sub

文字列で連結して返す必要なければsplitして数値変換でおわり

2020/08/29(土) 09:09:11.49

しかし今の子はこの程度も分からないほど論理的思考がないのか、
それともこのスレの住民を試そうとしているのか

2020/08/29(土) 09:45:04.26

使う関数提示するくらいで解決できなきゃ放置でいいんじゃね？

2020/08/29(土) 10:00:53.07

For r = 1 To 12000
処理
PDF出力

という処理をしているのですが、これだとＰＤＦが12000ファイルになって、全て出力した後で結合するのですが
これを12000枚程度をPDF１ファイルで出力する方法をおしえてください

2020/08/29(土) 10:07:03.64

Sub test2()
　　Dim strArray() As String
　　Dim testStr As String
　　Dim rtnStr As String
　　testStr = "000070-00100-01230"
　　strArray = Split(testStr, "-")
　　For i = 0 To UBound(strArray)
　　　　strArray(i) = strArray(i) * 1
　　Next
　　rtnStr = Join(strArray, "-")
　　Debug.Print rtnStr
End Sub

2020/08/29(土) 10:19:55.18

>>976
元データが何なのか知らんけど、
シート上のデータなら、12000ページを1シートにまとめてから出力。

2020/08/29(土) 10:47:19.93

12000ページのPDF・・・
ほんとに聞きたい事なの？これ

2020/08/29(土) 10:47:46.31

>>973
Split使うならJoinも使おうよ…
Sub test2()

Dim strArray() As String
Dim rtnStr As String

testStr = "000070-00100-01230"

strArray = Split(testStr, "-", , vbTextCompare)

For i = 0 To UBound(strArray)
strArray(i) = Cstr(Val(strArray(i)))
Next

rtnStr = Join(strArray, "-")

End Sub

**980** (ﾜｯﾁｮｲ 0201-YRmH) · 2020/08/29(土) 10:48:58.87

ってすでに書かれてたわ… Orz

2020/08/29(土) 10:55:28.99

>>979
何かの文書ならともかく、ExcelのPDF化で1万ページは非現実的だよね
自分の会社で使うだけならDB化するのが普通だし
役所に提出する測定資料とかかな？

2020/08/29(土) 11:18:02.61

ある言語だと
"00-001-02"split("-")map(asNumber)join("-")println

2020/08/29(土) 11:19:35.12

>>976
for
処理
PDF
Next
にしてるってこと？
ならPDFをNextの後に書けば良いんだけど

**976** (ﾜｯﾁｮｲ 45cc-pyQU) · 2020/08/29(土) 13:57:00.39

>>978
１シートにはまとめられません。

>>979
日々の取引をデータベースに入力していて、そのデータベースから出力されたデータを取引伝票としてＰＤＦ化したいのですが
データベースソフトに取引伝票の書式が設定されていないので、エクセルで作ろうと思います。
１ページごと出力してフリーソフトで結合すると、１２時間くらいかかっていたので、エクセルのＰＤＦ結合だとＡｃｒｏｂａｔＰｒｏ
が必要になるそうなので、この方法もできません。

>>984
シート上に帳票を作り、その帳票をページごとに書き換えています。試していませんが、１シートだと行数が足りないです。
それと、ページごとに罫線とかの書式を作るのはつらいです。

2020/08/29(土) 14:17:55.39

>>985
12時間かけて作った12000ページのPDFは実用に耐えてるの？
それ、手段の一つが目的になっちゃってない？

2020/08/29(土) 14:32:50.04

>>985
よくわからないけど、何とかデータをエクセルの表にして、ワードの差し込み印刷でやる、とかはどう？

2020/08/29(土) 14:38:51.56

PDF1ファイルにする理由はあるの？
120ファイルぐらいに分けるでしょ普通

2020/08/29(土) 14:42:09.88

伝票とかだと保存義務とかあったりして、出力しておいておかないとダメな時もある

１シートで収まらないならある程度で分割してやるしかないし
罫線とか決まったフォーマットならコピーするだけ

が、EXCELでやるのが間違ってるな
ちゃんとした帳票ツール買って対応する言語使えよ

2020/08/29(土) 16:14:59.78

PDF化って言われても実コマンド書かなきゃアドバイスのしようもないわな

2020/08/29(土) 19:10:04.48

シートにまとめられない理由は？
まとめないとして、12000シート作れるスペックはあるのか？

2020/08/29(土) 22:40:12.57

>>961
これ、マジで困るわ・・・

2020/08/29(土) 23:53:21.40

サポート終了なんだからいつまでもIE使ってんじゃねえよ

2020/08/30(日) 00:09:48.26

>>985
Accessでやって下さい

2020/08/30(日) 07:04:48.97

IE制御で作る
てどういう意味です？

2020/08/30(日) 08:58:33.06

テキストファイルを読み込もうとしているのですが、ファイルがないとエラーが出ます。なにが原因でしょうか？
Sub func()
Dim folderPath As String: folderPath = "G:\Test"
Dim textLine, fileName As String
Dim fileToOpen As Integer
Dim i As Integer
fileName = folderPath & "01.txt"
fileToOpen = FreeFile()

Open fileName For Input As fileToOpen

i = 1

While Not EOF(fileToOpen)
Line Input #fileToOpen, textLine
Cells(i, "A").Value = textLine
i = i + 1
Wend
End Sub

2020/08/30(日) 09:03:16.96

Open "C:\Sample\Data.txt" For Input As #1
Line Input #1, buf
Close #1

2020/08/30(日) 09:03:41.78

フォルダーパスの最後に/足してみては？

2020/08/30(日) 09:05:06.49

フォルダとファイルの間に/がないとか

2020/08/30(日) 09:13:38.94

フォルダパスに"\"が入っていませんでした。
ありがとうございます！

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 65日 7時間 12分 10秒