[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
503: (ﾜｯﾁｮｲ 8ae6-KV+F) 2020/10/07(水)22:54 ID:8t5FIA980(2/2) AAS
普通に書けばできることを聞く意味が分からん

もしかして書けないの？
書けないならやめればいいのに
504: (ﾄﾞｺｸﾞﾛ MM02-dHQN) 2020/10/07(水)22:56 ID:Az9cGqg8M(1) AAS
>>498
>>499
ありがとうございますm(__)m
505: (ﾜｯﾁｮｲ 67da-xYNh) 2020/10/08(木)01:49 ID:584FeZ4r0(1/2) AAS
>>497
VBAに慣れている人なら簡単に自動化というかVBAで組める内容ではある
問題はこの程度の内容を質問するより先に、自力でできるとこまで自分で
やらなかった最初の一歩が間違っているんだと思う
506: (ｱｳｱｳｳｰ Sa2f-J9E+) 2020/10/08(木)09:04 ID:BqKPxLQJa(1) AAS
CSVとして保存
VSCode等のまともなエディタで開く
([^¥r]+)¥r¥n([^¥r]+)を”$1¥r¥n$2”に置換
¥r¥n¥r¥nを¥r¥nに置換
Excelにインポート

>>492同様にワンショットでいいならこんな感じでいけるんじゃね
507(1): (ﾜｯﾁｮｲ 67da-tQNK) 2020/10/08(木)14:32 ID:584FeZ4r0(2/2) AAS
それができないのが初心者
508(2): (ﾌﾞｰｲﾓ MM76-HnI9) 2020/10/08(木)15:37 ID:d1cy1ieUM(1) AAS
クレクレ君のより煽ってる奴のがうざいんだけどね
VBAだけが人並にできるからこのスレにいつも欠かさず覗きにきてる感じか？
いつものお前が邪魔ですよお
509: (ﾜｯﾁｮｲ 0668-xYNh) 2020/10/08(木)15:59 ID:btiqMG+Y0(1) AAS
>>508
大丈夫スルーしてるから
遠まわしでも構うと同列に
510: (ﾜﾝﾄﾝｷﾝ MM3a-R/IE) 2020/10/08(木)17:05 ID:+6fedHspM(1) AAS
>>508
くれくれ君本人乙
511: (ﾜｯﾁｮｲ 9f7c-eFyE) 2020/10/08(木)19:30 ID:bwT1M8vM0(1) AAS
>>507
できないことは問題じゃない
やろうとしないことが問題
512(1): (ﾜｯﾁｮｲ 1b63-dHQN) 2020/10/08(木)19:55 ID:YPYO8uSI0(1) AAS
たしかにやろうとしないことが問題
てのは御指摘のとおりですね。すみません。
映像制作を生業としてますが普段tipsを聞くのりで聞いてしまいました。
513: (ﾜｯﾁｮｲ ca4f-+ixC) 2020/10/08(木)20:04 ID:KjDVO4Tm0(1) AAS
>>512
5chなんて便所の落書きなんだからそれでいいと思う。
ただ、まともな返事を期待して馬鹿を見ても仕方ない場所でもあるけれど。
514: (ｽﾌｯ Sdea-gn5F) 2020/10/08(木)21:04 ID:DcpygGCOd(1) AAS
ただでさえ印象悪いのにどうでもいい言い訳まで付けてさらに印象悪くするよくあるパターン
515(1): (ﾜｯﾁｮｲ 6bda-q18j) 2020/10/09(金)00:24 ID:t8qEIjmh0(1/3) AAS
Dim dw As Date
Dim i As Integer

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

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

'乱数で昇順並び替え
省12
516(1): (ﾜｯﾁｮｲ 6bda-q18j) 2020/10/09(金)00:26 ID:t8qEIjmh0(2/3) AAS
>>515
のdw = DateAdd("S", 5, Now)
Application.OnTime dw, "test"
を入れると、
「実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。」
となってしまいます。

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

どうすればいいでしょうか
517(2): (ﾜｯﾁｮｲ 4a2f-Dl/i) 2020/10/09(金)00:56 ID:8xBy2vBw0(1) AAS
>>516
そのプロシジャを標準モジュールに書く

CellsとかRangeとか、ちゃんとシート指定しといたほうが良いぞ
518: (ﾜｯﾁｮｲ 6bda-q18j) 2020/10/09(金)01:28 ID:t8qEIjmh0(3/3) AAS
>>517
できました！
＞CellsとかRangeとか、ちゃんとシート指定しといたほうが良いぞ
わかりました

ありがとうございました。
519(3): (ﾜｯﾁｮｲ 0f41-ICsZ) 2020/10/09(金)16:14 ID:SmS5zjtB0(1) AAS
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
に変換したいのですが、どういうコード書けばよいのでしょうか？
520: (ﾜｯﾁｮｲ 4aad-YPNF) 2020/10/09(金)16:19 ID:5DciVe+j0(1) AAS
連想配列使ってカウントするか(0 to 対象の値のMax)の配列を用意して、Array(対象の値)にカウントするかが１番頭使わなくて済むかな？
521: (ﾌﾞｰｲﾓ MM76-HnI9) 2020/10/09(金)16:55 ID:9cfuJ5OLM(1) AAS
かなり前だけどこのスレで教わったアドバイスが今やってることでピンときた
タブ増やして進めてくより
userformをhideとshowで工程進めてくみたいにしたほうがいいわ
ありがとうかなり前に教えてくれた人！
522: (ｱｳｱｳｳｰ Sa2f-5jeW) 2020/10/09(金)17:52 ID:OU1KT8YFa(1) AAS
>>519
fori=1 to 要素数(※要素数はカンマで区切られた数)
数字=数字 ＆ “-” ＆ i
next i
みたいな感じで
前の数字と違ったら数字をリセット
(iが1ならこの処理はしない)
要素がひとつなら処理せず次のiに
523(1): (ﾜｯﾁｮｲ 2a4b-XTxo) 2020/10/09(金)18:03 ID:klvVBjUq0(1) AAS
next i って書く人嫌い
524: (ｻｻｸｯﾃﾛ Sp03-+ixC) 2020/10/09(金)18:15 ID:FzRk+nqKp(1) AAS
かなり前の話と言えば
昔Privateで書かれたプロパティを
外部から取得する方法を書いてた人がいたけど
あれどうやるんだったっけ
525: (ﾜｯﾁｮｲ 03e5-SfJD) 2020/10/09(金)18:33 ID:/2wG1kS20(1/2) AAS
内部から漏洩させるのが確実
526: (ﾜｯﾁｮｲ 03e5-SfJD) 2020/10/09(金)18:36 ID:/2wG1kS20(2/2) AAS
>>523
それ以前にまったく要望を満たしていない
527: (ｽﾌﾟｯｯ Sd8a-Kms5) 2020/10/09(金)21:13 ID:hr48HmJ4d(1/2) AAS
>>517
俺はブックも必ず指定するけどね。
528(1): (ｽﾌﾟｯｯ Sd8a-Kms5) 2020/10/09(金)21:15 ID:hr48HmJ4d(2/2) AAS
>>519
どうしたいのかもう少し言葉で説明してくれる?
529: (ﾜｯﾁｮｲ cbda-xYNh) 2020/10/09(金)21:41 ID:KqgB0xuS0(1) AAS
>>519
普通にカウントアップして、1から2に、2から3に上がるときにカウンターリセット。
530(1): (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)21:44 ID:VcvC9Dp/0(1/6) AAS
1つしかなかった時に連番を付けない処理が一手間多くて面倒
データの先読みが必要になる
531: (ﾜｯﾁｮｲ 0668-xYNh) 2020/10/09(金)21:49 ID:5R2Ih+qA0(1) AAS
出力タイミングを次の数字を見てからにすれば楽
532: (ﾜｯﾁｮｲ 9f7c-eFyE) 2020/10/09(金)21:49 ID:2P2kQgrz0(1) AAS
1個でも複数でも変わらない
おかしな考え方してるんだろう
533(1): (ﾜｯﾁｮｲ 8ae6-SfJD) 2020/10/09(金)21:49 ID:hWEYACMU0(1) AAS
>>528
1.処理速度
2.低コスト
3.低ステップ
4.読みやすさ

優先順位はとりあえずこんな感じで頼むわ
534(1): (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)22:02 ID:VcvC9Dp/0(2/6) AAS
次の数字を見るかどうかの所で配列の最後かどうかも判定する必要があって面倒
シンプルでうまい方法があるんなら言葉じゃなくてコードで答えてくれ
535: (ﾜｯﾁｮｲ 0b3d-5jeW) 2020/10/09(金)22:06 ID:rNmj4HJx0(1/2) AAS
splitでカンマ区切りの配列化
instrで個数確認
かね？
536(1): (ﾜｯﾁｮｲ 0b3d-5jeW) 2020/10/09(金)22:07 ID:rNmj4HJx0(2/2) AAS
>>534
Uboundで判定して抜ければいいじゃん
537: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)22:19 ID:VcvC9Dp/0(3/6) AAS
>>536
ちゃんと動くコード書いてみて
538: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)22:24 ID:VcvC9Dp/0(4/6) AAS
AA省
539: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)22:47 ID:VcvC9Dp/0(5/6) AAS
AA省
540: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/09(金)23:08 ID:VcvC9Dp/0(6/6) AAS
b(i) = b(i) & "-" & c
↓
b(i) = b(i) & -c
541: (ﾜｯﾁｮｲ 672c-Dl/i) 2020/10/09(金)23:19 ID:760t1BpC0(1) AAS
プログラミングのお題スレにも、たまにあるけど、
次の要素を先読みするのは面倒

スタックのpeek みたいに、要素を読み取るだけで、削除しない関数があればよい
542(2): (ﾜｯﾁｮｲ 672c-Dl/i) 2020/10/10(土)06:22 ID:BjcbKuib0(1/5) AAS
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
省3
543: 542 (ﾜｯﾁｮｲ 672c-Dl/i) 2020/10/10(土)06:24 ID:BjcbKuib0(2/5) AAS
>>542
修正

># 一旦、整数の2次元配列にする。[[1, 1], [2, 2], [3], [4, 4, 4], [5], [6]]
一旦、文字列の2次元配列にする
544: 542 (ﾜｯﾁｮｲ 672c-Dl/i) 2020/10/10(土)06:29 ID:BjcbKuib0(3/5) AAS
>>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( "," ).
545: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/10(土)06:39 ID:WLqCacU70(1) AAS
データの種類が少なければ連想配列
546: (ﾜｯﾁｮｲ 0668-xYNh) 2020/10/10(土)09:37 ID:ejDp+I1j0(1) AAS
先読みって考えるから面倒なのでは？
後出しって考えればいいのでは？
547: (ﾜｯﾁｮｲ ca01-yf4V) 2020/10/10(土)09:43 ID:VjEh1Ow80(1) AAS
てかあの程度の仕様なら自分で書けよって思う
あれぐらいで書けないってのは根本的にプログラミングの基礎分かってないでしょ
forとifで一度自分で書いてみろと
548: (ﾜｯﾁｮｲ 9f7c-eFyE) 2020/10/10(土)11:33 ID:ZZ8h2+k60(1) AAS
書く気が無いからコードくれと言ってるんじゃないの
549: (ﾜﾝﾄﾝｷﾝ MM3a-R/IE) 2020/10/10(土)12:12 ID:PwUkT7dUM(1/2) AAS
いつものあいつでしょ
550: (ﾜｯﾁｮｲ 0332-HnI9) 2020/10/10(土)14:51 ID:l6OboMxr0(1/2) AAS
書けない奴「いつもあいつでしょ」
551: (ﾜﾝﾄﾝｷﾝ MM3a-R/IE) 2020/10/10(土)15:12 ID:PwUkT7dUM(2/2) AAS
煽って自演のいつもの馬鹿
552: (ﾜｯﾁｮｲ 0332-HnI9) 2020/10/10(土)15:36 ID:l6OboMxr0(2/2) AAS
おじさん「煽ってなんちゃら」
553: (ﾗｸｯﾍﾟﾍﾟ MM86-SfJD) 2020/10/10(土)15:38 ID:VaQE37nUM(1) AAS
バグってハニー
554: (ﾜﾝﾄﾝｷﾝ MM3a-pCej) 2020/10/10(土)17:43 ID:aEE68DdLM(1) AAS
いつものあいつ確定
555(3): 542 (ﾜｯﾁｮｲ 672c-JAxH) 2020/10/10(土)22:30 ID:BjcbKuib0(4/5) AAS
データベース変換などは、Ruby のEnumerable のメソッドを見て、
シェル芸とか、プログラミングのお題スレの問題を解いた方がよい

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

他言語ではたいてい、Rubyと等価のメソッドを作る
556: 542 (ﾜｯﾁｮｲ 672c-JAxH) 2020/10/10(土)22:31 ID:BjcbKuib0(5/5) AAS
>>555
修正

>データベース変換などは
データ変換などは
557(1): (ﾜｯﾁｮｲ ca4f-+ixC) 2020/10/11(日)00:52 ID:l/QRoUUr0(1) AAS
>>555
布教活動ご苦労さん
必要になったら勝手にRubyスレに行くから
帰っていいよ
558(1): (ﾜｯﾁｮｲ b301-NY7j) 2020/10/11(日)08:15 ID:qzIChT2z0(1) AAS
>>555
データ変換てのは基本的な作法さえ知ってればEnumerableメソッド使わなくても特に困ることもないだろう
ただのループ構造をこねくり回してるだけでそのためにメソッドを割り当てるなんてお仕着せもいいところ
559: (ﾜｯﾁｮｲ ca01-d5Pu) 2020/10/11(日)10:01 ID:QZ/HZvxF0(1) AAS
>>557-558
なぜ相手するんだ…
560(3): (ﾜｯﾁｮｲ 6b63-JAxH) 2020/10/11(日)12:29 ID:lH9sVzvl0(1/2) AAS
Acrobatを使用したプログラムを複数回実行すると初回だけ成功し
2回目以降は
実行時エラー2147467259(80004005)
エラーを特定できません
となります(idに代入する行でエラー)
終了処理に不備があってacrobatのプロセスが残っているのではと思いましたが
色々なサイトを見ても解決がわからない状態です。
どうすれば治りますか。
プログラムは次のレスを参照ください。
561(2): (ﾜｯﾁｮｲ 6b63-JAxH) 2020/10/11(日)12:30 ID:lH9sVzvl0(2/2) AAS
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
省11
562(1): (ﾜｯﾁｮｲ cbda-xYNh) 2020/10/11(日)18:37 ID:7Qx+aWsY0(1) AAS
どこだか忘れたけど、閉じる・解放はこの順番じゃないとダメって書いてあるサイトがあったぞ。
563: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/11(日)20:12 ID:WEczn1o20(1) AAS
オブジェクト型にNothingを代入しても、参照ポインタが書き換わるだけでメモリが解放されるわけじゃないんで、順序はそれほど重要じゃない
564: (ﾜｯﾁｮｲ 67da-xYNh) 2020/10/11(日)21:39 ID:CPiGYYUg0(1) AAS
>>560
必ず再現するなら同じ現象が発生する最小のコードを作ってみ
565: (ﾜｯﾁｮｲ 4a2f-JAxH) 2020/10/11(日)23:29 ID:gmCwGThW0(1) AAS
>>561
とりあえずDimでNewするのやめて様子見てみ
566: (ﾜｯﾁｮｲ 6f5f-e5Pm) 2020/10/12(月)01:35 ID:EUVfONAL0(1/2) AAS
どうやって再度、実行できているのか？

仕事ができない人がよく言う説明。
567: (ﾜｯﾁｮｲ 672c-JAxH) 2020/10/12(月)08:27 ID:CsRHImZw0(1) AAS
>>560
タスクマネージャーを起動して、プロセスを終了させてから、実行すれば？
568: (ﾗｸｯﾍﾟﾍﾟ MM86-SfJD) 2020/10/12(月)10:12 ID:5eYbb8SbM(1) AAS
アクロバットがすぐに終了しないのは体感でも分かるレベル
569: (ﾜｯﾁｮｲ 6f5f-e5Pm) 2020/10/12(月)18:47 ID:EUVfONAL0(2/2) AAS
2回目以降から1回目に戻る手順くらい書けよ！
570: (ﾜｯﾁｮｲ 07ad-yGJI) 2020/10/12(月)21:34 ID:mxOFfEsA0(1) AAS
おもいついた
>>530
最後にsubstituteでまとめて消せばよくね？
571: (ﾜｯﾁｮｲ 67da-tQNK) 2020/10/12(月)23:43 ID:k3Vmfe+e0(1) AAS
時間を戻そう
572(1): (ﾜｯﾁｮｲ ca4f-+ixC) 2020/10/13(火)08:13 ID:548t3foS0(1) AAS
>>561
objAcroAppにCloseメソッドがあってそれを実行していないとかいうオチだったりして
573: (ﾜｯﾁｮｲ ca01-d5Pu) 2020/10/13(火)09:32 ID:2dX+mfF30(1) AAS
>>572
普通の頭持ってたら
id = objAcroApp.Exit
がそれだと思うだろうに…
574: (ﾜｯﾁｮｲ 6749-xYNh) 2020/10/13(火)10:34 ID:lK6RB09G0(1) AAS
「.CloseAllDocs」 ってメソッドもAcrobat.AcroAppにはあるらしいな
そしてExitだけじゃプロセスが残ることもあるらしい

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

ちなみにどうでもいいが個人的にはExitとCloseは、意味的に異なると思う
だからExitとCloseが両方あってもおかしくないとは思う
でもExitがCloseを包括していても、それはそれでありだとも思う
Acrobat.AcroAppの公式ドキュメント見れてないからワイには答えが出せんわ
575: (ﾜｯﾁｮｲ 9f63-F9zC) 2020/10/15(木)08:48 ID:wrF56cyr0(1/2) AAS
>>560です
皆さん本当にありがとうございます。
みなさんのご意見をプログラムに反映した後、
ソースを最小（adobeをオープン・クローズするのみ）
にしてもエラーです・・・(次レス参照)

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

しかし、エラーになったあとちょうど24時間経過すると
省5
576: (ﾜｯﾁｮｲ 9f63-F9zC) 2020/10/15(木)08:49 ID:wrF56cyr0(2/2) AAS
ソースを最小にするためところどころコメントアウトしてます
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
省15
577: (ﾜｯﾁｮｲ 5b2c-F9zC) 2020/10/15(木)09:20 ID:7eWumHpU0(1/2) AAS
起動設定で、プロセスを殺すと、また再起動するアプリがある。
ウィルスチェックなどの、何かをチェックするアプリ

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

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

会社に問い合わせて、再起動を止めるような設定を聞けば？
578: (ｽﾌﾟﾌﾟ Sdbf-K5sQ) 2020/10/15(木)10:57 ID:LAL4jdY0d(1) AAS
区分1〜10のデータが記録されたcsvを区分ごとにExcelシート毎(シート名は1〜10)に分割して読み込むvbaがどうしても出来ません…
ご教示いただけないでしょうか…
579: (ﾜｯﾁｮｲ 5b49-fMdf) 2020/10/15(木)11:36 ID:+kinuzul0(1) AAS
そんな説明でわかるわけがないので、
そこまで頑張って作ったコードとエラーメッセージを提示するのが最低限
そして、自分で何を試行したのかも説明すること
580: (ﾜﾝﾄﾝｷﾝ MMbf-QVAX) 2020/10/15(木)12:20 ID:k/WlCRMPM(1) AAS
いつもの人
581(1): (ﾜｯﾁｮｲ 5b2c-F9zC) 2020/10/15(木)13:02 ID:7eWumHpU0(2/2) AAS
Ruby なら、これで最初の列だけを、出力できる

require 'csv'

# CSV ファイルを、1行ずつ処理する
CSV.foreach( "a.csv" ) do |row|
puts row[ 0 ]
end
582: (ﾜｯﾁｮｲ 9f6d-sSL1) 2020/10/15(木)14:36 ID:sVQ5bVjI0(1) AAS
>>581
C#スレで恥を晒したRuby荒らしは帰れよ
583(1): (ﾜｯﾁｮｲ 8bda-fMdf) 2020/10/15(木)19:36 ID:GQ796pt70(1) AAS
簡単かどうかなんてどうでもいい。
200万件のデータをADO+SQLより速く処理できるならRuby使ってやらなくもないが。
どうなんだい?
無理ならイラネ。
584: (ﾜｯﾁｮｲ 9fb5-K72c) 2020/10/15(木)19:54 ID:hF5+vxPB0(1) AAS
もう時代遅れなのはわかってるけど
会社が2019に更新してまだまだ使う気満々なので
そして配布が出来ないと困る
585: (ﾃﾃﾝﾃﾝﾃﾝ MM7f-RGwm) 2020/10/15(木)21:24 ID:Dg+UC/FqM(1) AAS
>>583
ルビ糞基地外の味方をするつもりはないけど、DBがボトルネックならRubyだろうが何だろうが速さは変わらんよ
586: (ﾜｯﾁｮｲ 9fe6-lr1q) 2020/10/15(木)21:53 ID:3DKNzMNt0(1) AAS
俺の解釈だとこんな感じ

Sub Macro1(Filename, Fieldname)
Set ws = Workbooks.Open(Filename).Sheets(1)
Set pvt = ws.PivotTableWizard(1, ws.UsedRange)
pvt.PivotFields(Fieldname).Orientation = 1
pvt.PivotFields(Fieldname).Orientation = 4
pvt.ColumnGrand = False
For Each r In pvt.DataBodyRange: r.ShowDetail = True: Next
End Sub
587(1): (ﾜｯﾁｮｲ fb19-F9zC) 2020/10/15(木)23:19 ID:fOL5OZab0(1) AAS
>>562
はこのサイトかな
外部ﾘﾝｸ:pdf-file.nnn2.com
588: (ﾜｯﾁｮｲ 8bda-fMdf) 2020/10/16(金)19:09 ID:Hr39/iau0(1/2) AAS
>>587
多分それ。
589: (ﾜｯﾁｮｲ bb5f-snog) 2020/10/16(金)19:55 ID:rggqlWcj0(1) AAS
PDFファイルの件は、マクロの記録でやるとどうなるのか、確認すればいいんじゃないの？
590: (ﾜｯﾁｮｲ 8bda-fMdf) 2020/10/16(金)21:55 ID:Hr39/iau0(2/2) AAS
なあそれ、マクロの記録をするとどうなるか確認してから言ってるのか?
591: (ﾜｯﾁｮｲ 9f42-B8Ym) 2020/10/16(金)22:07 ID:9Da+1I/Z0(1) AAS
モチのロンだぜ
592: (ﾜｯﾁｮｲ 5bda-fMdf) 2020/10/16(金)22:24 ID:tI22s9TB0(1) AAS
モロのチンだぜ
593: (ｽｯﾌﾟ Sdbf-huX3) 2020/10/18(日)16:09 ID:SMfw56kvd(1) AAS
>>533
そういうことじゃねえ。
594: (ﾜｯﾁｮｲ 05da-tMQb) 2020/10/21(水)23:21 ID:w3Ug/D8p0(1) AAS
画像ﾘﾝｸ[jpg]:i.pinimg.com
595: (ﾃﾃﾝﾃﾝﾃﾝ MMe6-B6QP) 2020/10/22(木)03:14 ID:RxEiNjgnM(1) AAS
AA省
596(2): (ｽﾌﾟｯｯ Sd02-4ynI) 2020/10/22(木)08:49 ID:8kbg1eIjd(1) AAS
まだVBAなんて使ってる人がいてビックリ
懐かしい言語だよね
597: (ﾃﾃﾝﾃﾝﾃﾝ MMe6-B6QP) 2020/10/22(木)09:02 ID:OZW0tgCBM(1) AAS
Excel2000から20年なんて家電製品なら普通ですよ
598: (ﾗｸｯﾍﾟﾍﾟ MMe6-E8a6) 2020/10/22(木)12:37 ID:QXcT5+jPM(1) AAS
Excel5.0からだよ
16ビットだよ
599(1): (ﾄﾞｺｸﾞﾛ MM15-o6QC) 2020/10/22(木)12:37 ID:N0tQIHiYM(1) AAS
>>596
今現在Excel入ってりゃ必ず使えるのはVBAだけだから
まあ最近の言語に比べりゃ色々面倒な部分はあるけどちょっとしたツール程度ならなんとかなるぐらいの機能はあるし
600(1): (ﾜｯﾁｮｲ 05cc-LA9s) 2020/10/22(木)17:17 ID:8WoYrv7v0(1) AAS
Ａ１に"2020/10/22"のように日付が入っています。
その日付が土曜日の場合、その月の何回目の土曜日かを調べるコードを教えてください。
601: (ﾃﾃﾝﾃﾝﾃﾝ MMe6-FUnU) 2020/10/22(木)17:41 ID:V9nm7cr3M(1) AAS
嫌です
602: (ﾗｸｯﾍﾟﾍﾟ MMe6-E8a6) 2020/10/22(木)18:23 ID:jxPHtPQlM(1) AAS
22÷7
上下前次1-新書関写板覧索設栞歴
あと 400 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.037s