20/12/13 00:40:59.48 3UupZiaXa.net
いちおつ
3:デフォルトの名無しさん
20/12/13 02:05:02.07 8gJ86P5y0.net
3次元配列
4:デフォルトの名無しさん
20/12/13 09:38:15.23 d7KSZ/+i0.net
>>1乙
前>>991です
スレ変わったのでわかる人お願いします
Excel関数のHyperLinkの処理を置き換え(APIHookのような処理)はどうすればできますか？
目的としてはHyperLink関数では一部のURLの表示が遅い(Excel自体のタイムアウト待ち？)ので
直接「CreateObject("WScript.Shell").Run URL文字列」の処理をさせたいのです
関数名はHyperLinkのままにしたいのでAPIHookのような処理ができればいいのですが
5:デフォルトの名無しさん
20/12/13 09:44:53.59 QAnzRvam0.net
Office田中のおじいちゃんはなぜ突然Youtubeの更新が止まったの？
6:デフォルトの名無しさん
20/12/13 09:58:52.02 8gJ86P5y0.net
ヒント:最初からコメント欄封鎖で察し
7:デフォルトの名無しさん
20/12/13 10:04:09.41 8gJ86P5y0.net
他のExcel YouTuberを遠回しでディスったり他の講師を素人呼ばわりしてるから警告されたとか？？
8:デフォルトの名無しさん
20/12/13 18:01:59.62 cE4yrWjc0.net
田中はクソみたいなコードを広めるのやめて欲しい
9:デフォルトの名無しさん
20/12/13 18:27:45.70 +kVWWkIy0.net
>>8
俺は見てないがもし糞みたいなコードがあるなら本人に「ここの部分はこうした方がいい」と伝えるか
正しい糞ではないコードを自分で広めるなりすればいいんじゃね
10:デフォルトの名無しさん
20/12/13 20:21:47.50 RLxnk1oS0.net
>>9
サンプルにバグを見つけて伝えたことあるけど無視された
そのまま放置
11:デフォルトの名無しさん
20/12/13 22:55:06.01 8gJ86P5y0.net
質問掲示板(多分知恵袋)にVBAの質問してもちゃんと答えられる人は少ないですｷﾘｯ
なぜなら彼らはVBの上級者であってエクセル上級者では無いからです！ﾄﾞﾔｯ
これ、マジであの人が発言したからね。
ここの住人の方が詳しいと思われ
12:デフォルトの名無しさん
20/12/14 12:29:36.45 7J3AXcIkH.net
なんとかのネタ帳の方が分かりやすい
13:デフォルトの名無しさん
20/12/14 13:10:44.97 v8F0AU2W0.net
あのExcelしか知らないのが超糞偉そうにしてるのを見るのもショーみたいで面白い。
周りに初心者がたくさんいるのだろうな。
そして小さなExcelの世界しか知らないから天狗のようになって自分が神であるかのように勘違いしてる。
14:デフォルトの名無しさん
20/12/14 15:02:42.82 SoqrBv/c0.net
Excelはすべての会社員が使っているので、会社員の頂点に立つ男！みたいな気分なんだろな。
15:デフォルトの名無しさん
20/12/14 18:25:01.11 +U5ugI250.net
ラーメン屋のオヤジがウチのラーメンが世界一だと言ってるようなもんだろ
ほっとけばいいのに
16:デフォルトの名無しさん
20/12/14 20:45:35.63 1UTk6KL+0.net
一応、MS本社に認められたんだよね日本人初のMVP受賞とか
間違っていたらすまそ
17:デフォルトの名無しさん
20/12/14 22:49:22.85 SoqrBv/c0.net
じゃあ世界一って事か。
18:デフォルトの名無しさん
20/12/14 23:00:48.78 1UTk6KL+0.net
どーなんだろ？？
あの人、あまり手の内見せないぽいから
最終的には自分で考える事が大事と良く言ってるし。
MSからマクロ作成の依頼されたことあるらしいし。
19:デフォルトの名無しさん
20/12/15 18:46:27.43 /G3Q8qXw0.net
日本人初＝世界一 ってのはどうかな
普通にできる人より詳しいのは認めるが
20:デフォルトの名無しさん
20/12/16 05:13:46.62 OBuLFyvl0.net
本人来てるなｗ
21:デフォルトの名無しさん
20/12/16 06:08:28.27 5QiC3fDMx.net
vbaでホットキーの下線を引くのってどうやるの？
captionに(&Q)って入れたらそのまま"(&Q)"って表示されてしまうんだが
22:デフォルトの名無しさん
20/12/16 18:46:12.78 T3OIGsjX0.net
フォントかも？
23:デフォルトの名無しさん
20/12/17 15:35:36.14 vxWFGGLL0.net
>>8
まぁ一見糞だけど知りたいところをスパッと見て
取れるように組んであるみたいだね
あれを素晴らしいと見るのは初級者
糞と見るのは中級者
ああ、仕方なかったんだろうなぁと見るのが
上級者だろうね
24:デフォルトの名無しさん
20/12/17 17:44:01.81 H5UCfbuzp.net
具体的なコードもなしにそんなことを言ってみても意味なくない？
25:デフォルトの名無しさん
20/12/17 18:18:37.46 HhGRrbK00.net
具体的に行動で示さなければ意味がないとも言えなくもないな
26:デフォルトの名無しさん
20/12/17 19:29:42.36 fIVTHnC60.net
意味を具体的に言ってくれないと行動で示したことにならなくもないな
27:デフォルトの名無しさん
20/12/17 21:10:06.33 HhGRrbK00.net
意味なんかなくてもいいな、いい意味で
28:デフォルトの名無しさん
20/12/17 23:03:41.69 xFG/tErCd.net
示す行動しない意味が言って具体的にない
29:デフォルトの名無しさん
20/12/18 00:01:06.37 pmAsW6cw0.net
VBAのソースからエクセルを開き、
ある一つのセルに
メールアドレスを2つ
;でつないで入れようとしています。
動作中にデバッガで止めて見たときは
2つとも入ってるのに
処理終了後に保存したファイルを開くと
最初の一つしか入ってないです。
;以降が消えています。
保存処理はコレです。
Wb.SaveAs fullPath & "\" & newfilename, FileFormat:=xlWorkbookDefault
どうすればメールアドレスを2つとも保存できるでしょうか。
セルに手入力して保存して開きなおした場合は
２つとも残っています。
30:デフォルトの名無しさん
20/12/18 05:56:32.93 MHBgXHLC0.net
>>29
その保存処理の行にブレークポイントを仕掛けて、保存直前のセルの内容を確認した？
31:デフォルトの名無しさん
20/12/18 11:37:45.35 zcOsQbRrx.net
シートに多数配置されたフォームボタンの余白を一括で変えたいんですが
これはどこのプロパティに入ってるんでしょうか？
図形ボタンならばTextFrameにありますが、
フォームコントロールボタンには無いので困っています
32:デフォルトの名無しさん
20/12/18 12:18:56.87 zcOsQbRrx.net
自己解決？
階層のかなり深いところあって正しいかどうかわからないけれど
目的のmargintopは変えられたのでよしとします
33:デフォルトの名無しさん
20/12/18 21:20:27.27 2qJVkyjrr.net
>>29
fullPathの中身は確認した?
34:デフォルトの名無しさん
20/12/18 21:24:38.24 d7JsJWQH0.net
>>30
してませんでした
してみたら上書きしちゃってことが発覚
すみませんでした
35:デフォルトの名無しさん
20/12/18 21:26:41.06 tZwK+Ox70.net
Fullい、アルPathの中身～
36:デフォルトの名無しさん
20/12/18 21:31:55.70 2qJVkyjrr.net
>>35
隠れてー
37:デフォルトの名無しさん
20/12/18 22:42:55.21 wJm+i3S50.net
2013でセキュリティがウンコとか言われずにシートにブラウザ埋め込む方法ない?
2003使えってのは無しで。
38:デフォルトの名無しさん
20/12/18 22:44:42.88 wJm+i3S50.net
あとフォーム使えってのも無しで。
フォームをシートに埋め込めるならフォームでも良いけど。
39:デフォルトの名無しさん
20/12/19 08:46:18.20 I2l+BhY+0.net
正規表現使ったら複数あったIf文がひとつにまとまって便利だわ
40:デフォルトの名無しさん
20/12/19 09:12:21.18 61b7WmYd0.net
>>37
Ａｃｔｉｖｅｘ コントロールの追加
41:デフォルトの名無しさん
20/12/19 09:13:26.65 XKRgJ0KSM.net
性器表現使ったら警察に通報されたわ
ω
42:デフォルトの名無しさん
20/12/19 09:17:51.58 yZxXMpJa0.net
ろくでなし子さんか。
43:デフォルトの名無しさん
20/12/19 09:18:25.16 61b7WmYd0.net
あ、フォームしか使えんのか、やっぱ無理
44:デフォルトの名無しさん
20/12/19 10:42:01.25 bPXc2una0.net
vbsの質問スレってありませんか？
45:デフォルトの名無しさん
20/12/19 12:26:52.95 /kQ9IsbnM.net
vbsってなぁに？
46:デフォルトの名無しさん
20/12/19 13:55:17.82 B7wez7Ce0.net
vibes
47:デフォルトの名無しさん
20/12/19 14:26:52.27 apUbT12I0.net
>>44
馬鹿は死ね
48:デフォルトの名無しさん
20/12/19 15:28:53.56 0faaSRGa0.net
>>39
どんな感じ？興味ある。
エクセルで式長いと読む気なくすから
49:デフォルトの名無しさん
20/12/19 19:29:28.19 alzND/kd0.net
新しく入った部署に一連の処理をまとめた動作が一時間かかるマクロがあったのですが
途中でたまにALTキーを押して動作が止まってないかみたほうが良いといわれましたが
ALTキーにそういう使い方がありますか？
コードを見ると2つのブック間での大量の転記がメインでしたがselectで行ったり来たりしてるのと
do eventsが目につくのと画面更新が停止になっていないのが気になりました
50:デフォルトの名無しさん
20/12/19 19:38:18.28 xrHuR8aPM.net
一から作り直してやれよ
51:デフォルトの名無しさん
20/12/19 19:39:14.70 61b7WmYd0.net
>>49
スクリーンセーバーとかで画面が消えているときに画面を表示させるってことじゃね
気になるなら言ったやつに聞けよ
52:デフォルトの名無しさん
20/12/19 19:42:46.83 LkhtCrGt0.net
途中で止まってないか確認が必要なツールってなんだそれww
53:デフォルトの名無しさん
20/12/19 19:46:02.83 61b7WmYd0.net
SHIFTだった、ALTはメニューのショートカットが出るので固まっているかどうかわかるんだな
54:デフォルトの名無しさん
20/12/19 19:46:14.78 KLAxshEw0.net
関数式びっしりのリスト表はINDIRECT関数でシート名を21年度にしたらまともに動かないようにしといた
俺の最後のあがき
55:デフォルトの名無しさん
20/12/19 19:50:43.64 alzND/kd0.net
オフィスがアップデートされてからめちゃめちゃ重くなったらしくて（多分2010以前から2016）
コードは流し見してみてもactivate、selectの連続なので書き方としてはダメなのは分かるのですが
オフィスのアップデートでマクロの処理時間に影響してるのはどの辺りかとおもってまして
56:デフォルトの名無しさん
20/12/19 19:55:12.16 alzND/kd0.net
>>53
なるほど！ありがとうございます
57:デフォルトの名無しさん
20/12/19 19:58:20.64 xrHuR8aPM.net
転記マクロなんて本来速いはずなんだがな
数万行のVLOOKとかならともかく
58:デフォルトの名無しさん
20/12/19 19:59:38.59 LkhtCrGt0.net
vlookは速い
だめなのはコピペ
59:デフォルトの名無しさん
20/12/19 20:05:32.11 4RWx2e/N0.net
メモリが足りてへんだけやろ
200x使ってたっていつのPCやねん
60:デフォルトの名無しさん
20/12/19 20:06:11.88 xy5yRKkZ0.net
>>57
作り方による
初心者はセル一つ一つに入れていくような処理を普通に作ったりする
61:デフォルトの名無しさん
20/12/19 20:14:37.97 alzND/kd0.net
>>57
コード読みのしんどくて処理を追うの断念しました
62:デフォルトの名無しさん
20/12/19 20:24:14.95 xrHuR8aPM.net
>>58
VLOOKは時間かかるよ
参照先が数万行あるからね
そういう前提
63:デフォルトの名無しさん
20/12/19 20:55:46.21 61b7WmYd0.net
別ファイルへのリンクは遅い
64:デフォルトの名無しさん
20/12/20 00:11:18.42 sV78pExa0.net
>>55
ネッワークがヘボだと、ファイルの読み書きで止まるのも遅くなるのも普通にある。
65:デフォルトの名無しさん
20/12/20 00:39:42.92 j7lOdAJ40.net
>>64
ネットワークフォルダにあるファイルの読み書きという意味でよいですか？
66:デフォルトの名無しさん
20/12/20 07:19:21.13 9C3kHidD0.net
>>49
DoEventsとかScreenUpdatingの停止は多分普段コードに触れない人も操作する事を想定しているのだと思う。
より時間がかかったとしても画面に変化があった方が時間が短く感じるらしいよ。
67:デフォルトの名無しさん
20/12/20 08:42:07.93 j7lOdAJ40.net
>>66
そういうこともあるのですね
68:デフォルトの名無しさん
20/12/20 08:42:23.86 sV78pExa0.net
>>65
そう。
読み込み途中で止まっちゃって、キャンセルボタンを押すと動きだしたり。
逆に、あーまた止まったと思ってキャンセル押すと、読み込みに失敗することも。(この場合止まってるのではなく遅いだけ)
ネットワーク関係ないなら、xlsがxlsxになった影響かも。
zip圧縮してるせいで、容量が大きいと遅くなる。
69:デフォルトの名無しさん
20/12/20 09:05:36.29 j7lOdAJ40.net
>>68
私は入ったばっかりのですが確かにネットワークのフォルダの挙動がおかしいと感じてはいます
フォルダに入ろうとすると権限メッセージが出て弾かれる、二回目はすんなり入れるなど
２、3年前にオフィス移転（システム的にも変更？）してから動作が不安定らしいです
こういう場合必要ファイルを一旦ローカルに保存してから処理を実行などの方が早いかもしれませんね
70:デフォルトの名無しさん
20/12/20 10:43:45.19 Ac0m1tee0.net
コードの各所にdebug.printで処理名と時間出すようにしてイミディエイトウィンドウが見える状態でマクロ実行したらどこで固まってるか分かると思うけど
71:デフォルトの名無しさん
20/12/20 12:10:16.68 nJ21/AVE0.net
Debug.PrintってVBEを開かないと見えないじゃん
素人対策ならどっかのセルの数字とか色を適当に変化させた方がいいかも
72:デフォルトの名無しさん
20/12/20 12:59:56.30 CqvjoJZt0.net
今度はそこでバグるんですね
73:デフォルトの名無しさん
20/12/20 13:14:04.40 6+Wk6JOS0.net
今度はそこでハゲるんですよ
74:デフォルトの名無しさん
20/12/20 23:10:55.45 gTVP+0oL0.net
Application.StatusBar がとっても便利
75:デフォルトの名無しさん
20/12/21 11:54:50.24 bZ3GkeZc0.net
全体の処理数がわかるなら、残り（未処理）が何件あるかを表示すると多少イライラが解消される
76:デフォルトの名無しさん
20/12/21 12:30:22.40 uS6jpmSaM.net
途中でクリップボード使ったら
卑猥な言葉が混入しまちた！
77:デフォルトの名無しさん
20/12/22 00:13:23.28 lruv7PIH0.net
ミスターTか。この人の経営してる会社、実態が無いと聞いたが
娘と親子でExcelのセミナー会社経営らしいが
78:デフォルトの名無しさん
20/12/22 03:50:30.98 rWw9Je1ea.net
娘何歳？
79:デフォルトの名無しさん
20/12/22 06:18:34.01 NAGl+KXI0.net
すみません教えてください
Option Explicit
Private Sub UserForm_Initialize()
Dim r As Long
ComboBox1.ColumnCount = 2
For r = 1 To Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem Range("A" & r).Value
ComboBox1.List(r - 1, 1) = r 'リストの2列目にシートの何行目かを記憶
Next
End Sub
Private Sub ComboBox1_Change()
Dim r As Long
Dim c As Integer
r = ComboBox1.List(ComboBox1.ListIndex, 1) '選択したリストの2列目(シートの何行目か)
ComboBox2.Clear
For c = 2 To Cells(r, Columns.Count).End(xlToLeft).Column
ComboBox2.AddItem Cells(r, c).Value
Next
End Sub
上記コードだとシート１のデータがコンボボックスに反映されるんですが
シート２のデータを反映したくて色々試したんですが解決できず
詳しい方がいましたら教えてください
80:デフォルトの名無しさん
20/12/22 07:33:43.93 mqeQ3pSMd.net
単にRangeやCellsと書いたのではアクティブなシートしか参照しない
複数シートを使わない場合であっても単純なエラーを防ぐ意味でシートを指定したほうがいいと思いますよ
81:デフォルトの名無しさん
20/12/22 07:51:09.62 k2dAsx4kx.net
名前付きセルを参照する時、Range("名前")だけだとVBEから実行するときに
他のブックがアクティブになっていて"名前"のセルが無いエラーが出るんで
ThisWorkbook を指定したいんですが、RangeオブジェクトがSheetにしか無いんで
名前指定しているにも関わらず
ThisWorkbook.Sheets("sheet1").Range("名前")
みたいにするしか無いんですが
これシート指定の部分を任意にすることは出来ないんでしょうか？
82:デフォルトの名無しさん
20/12/22 07:54:48.95 asPFS5mN0.net
出来る出来ないで聞かれたら出来る
83:デフォルトの名無しさん
20/12/22 10:21:28.79 Lmg+KcEvM.net
ツリーからシートを選んでプロパティからオブジェクト名をよく見てみると良いよ。シート名とオブジェクト名が切り離されてる事に気付くから。
そしたら【オブジェクト名】.Cells([RowIndex],[ColumnIndex])とか【オブジェクト名】.Range(“名前”)とかでやってみ。
84:デフォルトの名無しさん
20/12/22 10:41:24.56 kzqT97dS0.net
>>81
あとになって自分のコードが理解できなくなるに1ガバチョ
85:デフォルトの名無しさん
20/12/22 14:37:29.68 sqvmca9RM.net
>>81
別にそれでいいじゃんよ
86:デフォルトの名無しさん
20/12/22 14:44:06.90 sqvmca9RM.net
>>79
そもそもシート1とかシート2とか何を言ってるんだ？
シート1というシート名のシートがあるなら、
Sheet("シート1")と指定すればいいだけだろうに、それがプログラム中に無いぞ。
87:デフォルトの名無しさん
20/12/22 16:07:51.53 wg95/wQDd.net
いつものあいつがコピペしただけのものでは？
88:デフォルトの名無しさん
20/12/22 20:57:51.79 zqIv26bj0.net
質問です。
シート 1～ 最終シート全ての
「B列の14行目」 から
「B列の値のあるまとまりの最終セルの一つ前まで」
のセルの値をクリアしたいです。
下のコードで試してみたのですが、アプリケーション定義またはオブジェクト定義のエラーと出てしまいます。
VBA覚え始めたばかりの完全初心者でどこが違うのか分からないです
すみませんが、教えてもらえませんでしょうか
Sub test()
G = Sheets.Count
For H = 1 To G
Sheets(H).Range(Range("B14"), Range("B14").End(xlDown).Offset(-1, 0)).ClearContents
Next
End Sub
89:デフォルトの名無しさん
20/12/22 21:29:14.42 sqvmca9RM.net
Dim G As Integer, H As Integer
を冒頭に入れてもダメかえ？
90:デフォルトの名無しさん
20/12/22 21:43:02.14 zqIv26bj0.net
入れてみましたがダメでした…
OptionExplicitも外してますので宣言の問題ではないようです
でも宣言はすべきですね…
91:デフォルトの名無しさん
20/12/22 21:47:05.04 sqvmca9RM.net
そういやクリアコンテンツって
シートの選択から直は無理だったような？w
Sheet(H).Select
を行で独立させてみたら？
92:デフォルトの名無しさん
20/12/22 21:50:43.47 sqvmca9RM.net
すまん
Sheets
ね。s抜けたわ。
93:デフォルトの名無しさん
20/12/22 21:55:05.91 zqIv26bj0.net
すみません、自己解決しました…
色々ありがとうございます。
Rangeの範囲指定の中のRangeにSheets(H).が抜けていたのが原因でした。
For Nextでシートが移ってもSheets(1)のRange範囲を参照するようになっていたようです・
94:デフォルトの名無しさん
20/12/22 22:02:13.02 sqvmca9RM.net
あ、その罠かw
レンジレンジでやるとそこめんどくさいんだよな
Cellsのがいいと思う
あと>>91でもいけるんじゃないかな
95:デフォルトの名無しさん
20/12/22 22:08:35.35 AEyd3vLu0.net
アクティブじゃないシート上の画像のサイズ変更すると想定と少しずれるんですが原因分かりますか？
サイズ変更する前にシートをアクティブにすると全て同じ大きさになるのでコードは合ってると思います
96:デフォルトの名無しさん
20/12/23 05:25:00.77 j3OsNt/k0.net
>>80
早速の回答ありがとうございます
For r = 1 To Range("A" & Rows.Count).End(xlUp).Row
↑
For r = 1 To Sheet("１" & Rows.Count).End(xlUp).Row
に変更したらいいのでしょうか？
初心者ですいません
97:デフォルトの名無しさん
20/12/23 06:50:55.19 xBPwPYbC0.net
>>96
For r = 1 To Sheet1.Range("A" & Rows.Count).End(xlUp).Row
98:デフォルトの名無しさん
20/12/23 11:44:28.79 j3OsNt/k0.net
>>97
ご教授ありがとうございます
初心者じみた質問で申し訳ありません！
ComboBox2.AddItem Sheet3.Range(r, c).Value
↑
Sheet3を参照できないのですがどこが間違っているのか理解できません
わかる方いましたらよろしくです
99:デフォルトの名無しさん
20/12/23 11:46:56.79 o2ScoeZIM.net
>>98
RangeをCellsに変えてみ
100:デフォルトの名無しさん
20/12/23 15:07:17.52 Xl4mgk4Md.net
いつものあいつ確定
101:デフォルトの名無しさん
20/12/23 15:43:35.91 FcIaoKlm0.net
いつものあいつが好きな奴確定
102:デフォルトの名無しさん
20/12/23 15:51:50.15 Xth9/5BD0.net
いつものあいつは人気者
URLﾘﾝｸ(store.line.me)
103:デフォルトの名無しさん
20/12/23 18:16:20.38 j3OsNt/k0.net
>>99
ありがとうございます
104:デフォルトの名無しさん
20/12/23 18:19:10.98 j3OsNt/k0.net
>>98
早速変更したらできました！！
本当に感謝します
自分の初心者じみた凡ミスですね
ありがとうございます
こころの優しい御仁
105:デフォルトの名無しさん
20/12/23 20:48:51.52 ZakT/bFP0.net
初心者じみた…？
106:デフォルトの名無しさん
20/12/23 21:42:26.23 +z0aXtBh0.net
ネタかと思って傍観していたが、久しぶりに質問スレっぽくてホッコリしたわ
107:デフォルトの名無しさん
20/12/23 23:00:34.90 igbw91HoM.net
完全にいつものあいつじゃん
108:デフォルトの名無しさん
20/12/23 23:04:58.03 ZakT/bFP0.net
一見相手を持ち上げてるようで馬鹿にしてるいつもの感じ
109:デフォルトの名無しさん
20/12/24 18:03:54.48 ib8ApZa60.net
xlsで共用管理してた物品リストを
現場に飛ばされて激怒した仕事できないおばちゃんが
シートの保護にパスワードをかけてそのまま年末休みに入った
ネットで拾ったプロージャで
パスワードを解除した俺が神扱い
110:デフォルトの名無しさん
20/12/24 19:35:35.16 i3RIeYBl0.net
ならこんなところで虚しいアピールしなくていいよ
111:デフォルトの名無しさん
20/12/24 20:31:22.57 OvKwRG9WM.net
首案件か…
112:デフォルトの名無しさん
20/12/24 21:20:52.76 6nJjzXUX0.net
保護かけただけなら実害ないじゃないか
113:デフォルトの名無しさん
20/12/24 23:15:25.57 ViSodmdc0.net
許可なく改竄するのってどうかな
114:デフォルトの名無しさん
20/12/25 00:16:09.85 OfYljKJA0.net
ユーザーフォーム1のボタンを押すと開始する処理をユーザーフォーム2から起動する方法ってない？
クラスに書いとかんとだめなのかな
115:デフォルトの名無しさん
20/12/25 02:22:11.64 Zgx05nqca.net
書く場所かえればいいのに、いつもの人か？
116:デフォルトの名無しさん
20/12/25 02:34:13.17 oy51KHzs0.net
標準モジュールに書いてCallではダメか？
117:デフォルトの名無しさん
20/12/25 04:03:39.34 OfYljKJA0.net
>>116
そっか、たしかに標準モジュールに移植すれば良かったか
118:デフォルトの名無しさん
20/12/25 19:42:46.45 M+L+LuRT0.net
>>117
Privateを取っ払ってただのSubにすれば、
UserForm1.ボタン_Clickで実行できる。
119:デフォルトの名無しさん
20/12/26 11:08:58.12 xVJ70HL70.net
どなたかお教えください。
e-Gov法令検索
URLﾘﾝｸ(elaws.e-gov.go.jp)
というサイトでエクセルにリスト化されている法令を検索し，
ダウンロードすることを試みたいと考えております。
.Navigate でサイトを開き，
.document.getElementById("searchTextBox").Value = "法令名"
.document.getElementById("searchBtn").Click
で，該当の法令を検索させるまではできました。
その後，検索結果を見つけてURLを取得するところでつまずいております。
.document.getElementsByTagName
とかをどのように指定したらよいのでしょうか？
どうぞよろしくお願いいたします。
120:デフォルトの名無しさん
20/12/26 13:00:08.72 JDXDJsEV0.net
>>119
そよのサイトでリスト化されているもののダウンロードはエクセルには向いてないので
手作業でやったほうがいいだろう
121:デフォルトの名無しさん
20/12/26 14:44:21.47 1Jq10AwVM.net
Javaを覚えろってことか
122:デフォルトの名無しさん
20/12/26 14:52:02.96 CuJQon1q0.net
Javaを覚えろってことよ
123:>>119
20/12/26 15:35:46.04 xVJ70HL70.net
>>120
アドバイスありがとうございます。
しかしながら１００件くらいあって，定期的にチェックして（法令が更新されることがあるので）ダウンロードするとなると
つらいです。
なんとかどうぞお願いします。
124:デフォルトの名無しさん
20/12/26 16:34:12.06 AsvwShK0H.net
>>123
ちょっとやってみるから、何か一つ検索キーワード教えて
あと検索条件はデフォルトのままでいいの？
125:>>119
20/12/26 18:32:04.58 xVJ70HL70.net
>>124さん
どうもありがとうございます。
キーワードは
予防接種法
検索条件はデフォルトのままでいいです。
お願いします。
126:デフォルトの名無しさん
20/12/26 21:38:03.20 AsvwShK0H.net
>>125
ざっくり見たところ、そのサイトはスタイルシートで検索結果を渡してWebAPIでダウンロードする方式だからGetElementsなどは使えないしURLもどこにも書いてない
WebAPIを呼び出すフォーマットは、例えばこんな感じになってる
URLﾘﾝｸ(elaws.e-gov.go.jp)
このURLをブラウザのアドレスバーに入れるとPDFのダウンロードが始まる
VBAでできないことはないけど難易度はけっこう高い
素人にはおすすめしない
127:デフォルトの名無しさん
20/12/27 00:06:28.37 V6kYHqJF0.net
Ruby なら、curl コマンドとか、open-uri でダウンロードできる
require 'open-uri'
html = `curl https://何々`
url = "https://何々"
html = open( url )
puts html.read
128:デフォルトの名無しさん
20/12/27 01:58:09.26 s6cy7Ti00.net
なぜVBAスレでrubyが
129:127
20/12/27 05:17:11.18 V6kYHqJF0.net
Windows 10 にも、curl が入った
コマンドプロンプトで、
where curl
と入力すると、
C:\Windows\System32\curl.exe
130:デフォルトの名無しさん
20/12/27 08:26:34.69 CaXXLtf40.net
なら、
コマンドプロンプト
require
この３つをNGワードに追加。捗る。
131:デフォルトの名無しさん
20/12/27 08:54:36.12 73ofl+2yH.net
URLを指定してダウンロードする方法の質問なんか誰もしてないのに、いきなり独り言
ルビー使いはあたおかだとよくわかる
132:デフォルトの名無しさん
20/12/27 09:21:25.61 iG00duHM0.net
名門校で球拾いより弱小校でエースのほうが楽しいから
まあ関係のない部活に来てたらウザがられるだけだが
133:デフォルトの名無しさん
20/12/27 09:39:02.91 DRufeyQV0.net
初心者がもの凄いものをいきなり作ろうとしてここに質問すればできると思っているいつもの人
134:デフォルトの名無しさん
20/12/27 10:57:38.42 Km9iTMMx0.net
>>118
おおおお、そういうことかー
これなら標準モジュールに移植しなくても別のユーザーフォームから起動できるね
ありがとうございます！こういう豆知識待ってました
135:デフォルトの名無しさん
20/12/27 18:38:53.38 kvcCvRIC0.net
privateの意味は豆知識ではなく一般常識ては？
136:デフォルトの名無しさん
20/12/28 00:09:12.39 eYw4/aNg0.net
ユーザーフォーム2からユーザーフォーム1
ボタンを押したようにできることが豆知識だったのよ
自分にとってはね
137:デフォルトの名無しさん
20/12/28 02:13:46.08 zq2Mh9UF0.net
>>133
初心者ではなく初心者から脱却する気の無い人間が
138:デフォルトの名無しさん
20/12/28 11:52:39.77 D2Ae0vPz0.net
>>136
分かりにくくなるだろうな
そのフォーム１の処理の中にフォーム２の処理が混ざっていて・・・みたいな
139:デフォルトの名無しさん
20/12/28 12:18:01.21 tqv11FjK0.net
単体で使いたい時もあるけど
ある処理の部品としても使いたいとかかな
140:デフォルトの名無しさん
20/12/28 12:46:17.64 2cxQATNW0.net
それなら共通部品として切り出して
フォーム1から呼ぶ、2から呼ぶってしないと後々メンテで死ぬパターン
141:デフォルトの名無しさん
20/12/28 20:20:11.64 VGvj7ZmYa.net
今FTPするのに諸事情あってwininetを利用してるんだけど
これってファイルのディレクトリ移動は無理？
ちなみにLINUXサーバ
例えば
/work/testdir/test.log
を
/work/movetodir/test.log
って感じで移動したい
コピーした後deleteすればいいのでコピーでもオッケー
今はスマホからならなので詳細ソースは勘弁して
試したのはFtpPutFileやFtpGetFileで
fromとtoをそれぞれファイル名やフルパスで入れ替えたりしてみたんだけど
まぁだめだった
FtpMoveFile的なものはないですか？
142:デフォルトの名無しさん
20/12/28 20:23:27.00 VGvj7ZmYa.net
ちなみにBASPやWINSCPとかは規約上使用できないです
ない場合はローカルに一時的にgetした後別のディレクトリにPutすると言う力技も考え中
143:デフォルトの名無しさん
20/12/28 20:51:35.01 VGvj7ZmYa.net
なんとなく自己解決
やはりFTPの仕様上Moveはダメっぽい
力技しか無いかなぁ
144:デフォルトの名無しさん
20/12/29 04:24:04.54 r4ksfnFx0.net
シートを開いたときにシート上のコンボボックスにリストを読み込ませたいんですけど、
シート上にある文字列を読み込むのではなくマクロのみで特定の文字列を読み込ませることって出来ますか？
145:144
20/12/29 04:50:38.55 r4ksfnFx0.net
DirectXのコンボボックス使えば一発でした……すみません……
146:144
20/12/29 06:16:00.81 r4ksfnFx0.net
ActiveXのコンボボックス2つを設置し、以下のようにシートのところに記述後、ComboBox1のプルダウンボタンをクリックすると、
実行時エラー "380":
Valueプロパティを設定できません。プロパティの値が無効です
と表示され、「ComboBox2.Value = "G6"」がハイライト表示になるのですが、対処法が分かりません。ご教授お願い致します。
---------------------------------------------------
Option Explicit
Private Sub ComboBox1_Change()
ComboBox2.Value = "G6"
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox1.List = Array("A", "B", "C", "D")
End Sub
Private Sub ComboBox2_DropButtonClick()
If ComboBox1.Value = "A" Then
ComboBox2.ListFillRange = "G6:G9"
Else
ComboBox2.ListFillRange = "G6:G8"
End If
End Sub
147:144
20/12/29 06:25:34.42 r4ksfnFx0.net
すみません、Stylesプロパティが2 - fmStyleDropDownListだったからValueに代入できなかったんですね……
ComboBox2.ListIndex = 0 にしたら直りました。お目汚しすみません。
148:デフォルトの名無しさん
20/12/29 15:15:22.81 eRbfzaAa0.net
コンボ１→鈴木一郎
コンボ３→鈴木専務
鈴木部長
須藤係長
杉村課長
コンボ３には先頭一致で「す」を検索し絞り込みで表示したいのですがむずかしいでしょうか？あるいは漢字一文字で検索でもいいのですがMatchFound関数を使用するのではないかと思うのですが検討もつきません
Option Explicit
Private Sub ComboBox2_Change()
End Sub
Private Sub UserForm_Initialize()
Dim r As Long
ComboBox1.ColumnCount = 2
For r = 1 To Sheet3.Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem Range("DB!A" & r).Value
ComboBox1.List(r - 1, 1) = r 'リストの2列目にシートの何行目かを記憶
Next
End Sub
Private Sub ComboBox1_Change()
Dim r As Long
Dim c As Integer
r = ComboBox1.List(ComboBox1.ListIndex, 1) '選択したリストの2列目(シートの何行目か)
ComboBox2.Clear
For c = 2 To Sheet3.Cells(r, Columns.Count).End(xlToLeft).Column
ComboBox2.AddItem Sheet3.Cells(r, c).Value
Next
End Sub
149:デフォルトの名無しさん
20/12/29 15:20:48.46 xvN7YPpo0.net
インデントしてない時点で(ｷﾘ
150:デフォルトの名無しさん
20/12/29 15:24:36.38 1ep2xIo7M.net
>(ｷﾘ
ウザっ
151:デフォルトの名無しさん
20/12/29 16:02:20.40 NKmqU0kK0.net
>>148
リスト全部チェックして一致したものを追加するなりシート上でフィルタした結果を追加するなりしたらいいんでないの
152:デフォルトの名無しさん
20/12/29 16:26:47.99 NKmqU0kK0.net
思ったんだが、そのコード自分で読み込んだり動き確認したりしてないだろう…
153:デフォルトの名無しさん
20/12/29 16:30:16.32 9/T630Lp0.net
質問するのが趣味なんだろ
154:デフォルトの名無しさん
20/12/29 16:53:27.47 dODwImwo0.net
読み仮名でソートすればいいんでないの
エクセルの並び替えもこうなるし
お
大学(おおきいで変換)
か
だ
大学(だいで変換)
ぢ
155:デフォルトの名無しさん
20/12/29 18:16:49.35 eRbfzaAa0.net
すいません！
質問するレベルにも到達してなくて
シート上で一致させるなら簡単ですね
質問が趣味ではないのですが
業務で必要なもので初心者ながら悪戦苦闘しています
質問のしかたが悪かったと思います
ちょっと考えて質問したいと思います
156:デフォルトの名無しさん
20/12/29 18:20:31.42 U6Tn+IN30.net
いつものあいつだろ
157:デフォルトの名無しさん
20/12/29 18:24:55.74 NKmqU0kK0.net
いつものやつだった・・・
158:デフォルトの名無しさん
20/12/29 18:26:09.51 eRbfzaAa0.net
前に質問した時も
誰かと勘違いされたような・・・
誰ですか？
VBAスレには
４回ぐらいしか書き込んだりしてないのですが？
どういった人と勘違いしてるんですか？
荒らしみたいな人いるんですか？
159:デフォルトの名無しさん
20/12/29 18:57:29.26 lS8hY7UX0.net
話題に上ると嬉しそうに反応すんなよｗ
160:デフォルトの名無しさん
20/12/29 20:40:10.06 eRbfzaAa0.net
>>159
だからここには４回ぐらいしか来たことない
どういったら信じてくれるのかな
初めてだわ
荒らしと間違えられたの
どんな荒らしなの？
普通に書き込んでるつもりなんだけど？
何か気に入らなかった？
３日前ぐらいに書き込んだ時も勘違いされたけど
ホント勘弁して
161:デフォルトの名無しさん
20/12/29 22:12:23.41 DC9TsoaB0.net
荒らしと同じようなことを書くから間違われるのでは？
162:デフォルトの名無しさん
20/12/29 22:16:06.03 mchvBN/f0.net
真っ赤な帽子にキラリとヒカル
163:デフォルトの名無しさん
20/12/29 22:16:31.70 eRbfzaAa0.net
>>161
どこがどう悪かったのか教えてください
164:デフォルトの名無しさん
20/12/29 22:29:26.63 dODwImwo0.net
おかしな事言う人がいるな
でスルーしてたらいいと思うよ
今のままだと思うツボ
165:デフォルトの名無しさん
20/12/29 23:51:56.35 xvN7YPpo0.net
>>78
わからぬ。ホムペとかに時々セミナーの写真とか載ってるからそれを見て判断
性格まで瓜二つだからすぐわかるぜw
166:デフォルトの名無しさん
20/12/30 01:27:15.02 RXqudRq00.net
俺も前になんかの質問したときにいつものアイツって言われた事があったから逆になんでもかんでもいつものアイツって言いたがる荒らしが常駐してるもんだと思ってた
167:144
20/12/30 01:52:55.19 Oh92F1JH0.net
シートを開くと「オブジェクトが必要です。」だの「メソッドまたはデータメンバが見つかりません。」だのと表示されるんですけど、特に修正することもなく動作している(ように見える)んですけど、これ何が悪いんですかね？
168:デフォルトの名無しさん
20/12/30 03:31:25.87 AqLm+Pp2M.net
PERSONALに余計な書き込みしちまっつてるんじゃね。
再表示させて全部消すんだ。
169:144
20/12/30 03:53:07.20 Oh92F1JH0.net
Personal.xlsですかね？
探しましたがそもそもファイル自体存在しないみたいです……
170:144
20/12/30 03:58:33.29 Oh92F1JH0.net
なんかよく分かんないんですけどエラー行で指定してたコンボボックスを消して再設置したら直りました
助言ありがとうございました
171:デフォルトの名無しさん
20/12/30 05:38:22.32 AqLm+Pp2M.net
毎回コンボボックス言ってるなあんた
172:144
20/12/30 05:47:42.87 Oh92F1JH0.net
なんかコンボボックスってクセ強くないですか？
すごく弄りにくくてややこしいです
173:デフォルトの名無しさん
20/12/30 08:41:09.68 mfFqR3/N0.net
クセ強いって言うか、1クリックで2回イベント発動するのがなぁ・・
いちいちIf Flag Then Exit Sub とかいれて、
無理矢理1回しか動かないようにしてるけど、
他にいい方法ないもんかね
174:デフォルトの名無しさん
20/12/30 08:43:56.99 mfFqR3/N0.net
あ、直前に Flag = Not Flag な
175:デフォルトの名無しさん
20/12/30 11:23:33.25 hFnpG/QKH.net
>>173
イベントハンドラは必ず先頭でEnableEvents=Falseするんだよ
そして時間のかかる処理はハンドラの中へ書かずに別プロシージャに飛ばす
176:デフォルトの名無しさん
20/12/30 13:02:57.82 mfFqR3/N0.net
>>175
ごめん、1クリックで2回じゃなくて、
選択肢の表示で1回、選択で1回で計2回の間違い
なのでイベントOFFで逃げられない
177:デフォルトの名無しさん
20/12/30 16:14:15.56 8iwO+LiN0.net
状態管理用のフラグ作って管理している
178:144
20/12/30 23:59:22.86 Oh92F1JH0.net
>>173
マジすか
もしかしてDropButtonClickイベントに.Clearと.AddItemを入れたら選択してもボックス内に表示されなかったりするのって原因それですかね
179:デフォルトの名無しさん
20/12/31 08:04:03.76 qAEGulJg0.net
>>178
そういうの作りながら動作確認しないの？
180:デフォルトの名無しさん
20/12/31 08:17:09.79 sAh4R5unH.net
ネットにサンプルがいくらでも転がってんだから、素直にコピペしとけばいいのに
181:デフォルトの名無しさん
20/12/31 08:39:17.53 5hauEQny0.net
直ぐにネットの野良コードを見て何も考えずにコピペコピペする人は決して【上級者】ではありません！(ｷﾘ
182:デフォルトの名無しさん
20/12/31 10:43:23.83 yfYCC+Dx0.net
>>178
多分そう
>>179
最初はそんな罠があると思わないからな
俺は、間にMsgBox入れたら2回出たのでやっと気づいたわ
183:デフォルトの名無しさん
20/12/31 10:53:25.38 8vAoqqdn0.net
罠なんてのは理解してる人間が陥るものであってただの知識不足には何の関係もない
想定の動きしなかったら一つ一つ確認するのは最低限のことだ
184:デフォルトの名無しさん
20/12/31 11:11:12.57 sAh4R5unH.net
プログラムは決して思った通りには動かず、書いた通りにしか動かない
思った通りに動かない時、それは思った通りに書けてない時
185:デフォルトの名無しさん
20/12/31 11:33:07.51 yfYCC+Dx0.net
いや、Windows Update直後に動かなくなるとか普通にあるから
あとVBSだが、最近InputBoxで第1引数の文字が出ないことがある
どこかのファイルから文字を読み込んでるとかじゃなく、
引数に直接指定してるのに
起動しなおすと出るから間違ってはいない
186:デフォルトの名無しさん
21/01/01 09:42:29.21 Sutdgdij0.net
間違っているのではなく見落としているんじゃね
187:デフォルトの名無しさん
21/01/01 17:08:38.32 PXRj0cmP0.net
そりゃPGの動作ってのは環境含めてだからな
188:デフォルトの名無しさん
21/01/02 20:54:06.70 gYfsTimq0.net
不具合がわかっていて放置できるとかうらやましいな
189:デフォルトの名無しさん
21/01/04 03:24:12.12 SOcZuJtz0.net
>>125
検索結果はARTICLEタグの1番目から3番目迄(0番目は検索結果とは違うものに使用されてる。)。
その下のクラス名LawDownloadの下にクラス名pdfFileが幾つか見つかるが、その直ぐ下にAタグにhref=で始まるURLが見つかる。
どれもGetElements系で取得出来る。
最後はURLDownloadToFile使えば良いんじゃね?
190:デフォルトの名無しさん
21/01/04 16:03:39.37 P/FS/eNz0.net
バッチでデスクトップを再起動する人もあまりいないと思うが
デスクトップを再起動するプロシージャ内でExcelをQuitすると、Excelが勝手に再起動する
という現象が起きるので一応報告しとくね
環境によるかも
最初からWin10のPCで、Excel2019
（Win8からのアプデPCで、Excel2013では起きなかったかも）
デスクトップを再起動するコマンドを実行してるのはShell関数
Shell関数は非同期のはずだが、その同一プロシージャ内では、APIのSleepで５秒待っても駄目
DoEventsも駄目
そのプロシージャを一旦抜けて、タイマーで５秒後にQuitを実行すればExcelが再起動しない
デスクトップを再起動するのは、とあるツールの強制終了で残るタスクバーアイコンをクリアするためで
そんな用事のある人も滅多にいないだろうけど（クリアしなくても問題があるわけでもないし）
191:デフォルトの名無しさん
21/01/04 16:52:13.02 P/FS/eNz0.net
Access VBAに比べるとExcel VBAは随分安定してるが
それでもゴリゴリ開発を繰り返すと、謎の実行エラーは起きるよね
ソースを全部エクスポートしてインポートし直すと直るやつ
結構有名なはずだが
謎は実在するのにないと言い張るのは、経験不足なだけ
話題の動作を確認したわけじゃないがね
192:デフォルトの名無しさん
21/01/04 18:20:52.45 WAisD+UGM.net
あまり何もかもをまとめて処理するのはリスキー過ぎる
小分けにして段階を踏め
193:デフォルトの名無しさん
21/01/04 21:23:02.41 XJuzf2wY0.net
VDI環境でメモリ4ギガしか振られてないんだけど、グローバル変数を4つくらい作るとメモリ不足エラーが出て不安定になります。
割り当てるメモリを増やせばエラー収まりますか？
194:デフォルトの名無しさん
21/01/07 11:25:47.54 vMxmEGnU0.net
質問というか相談です
フォーム上のテキストボックスを右クリックした時、元の背景色が通常色の場合は黄色に、黄色の場合は通常色にと切替を行い、塗り潰しチェックの様な事が出来るようにした物を作りたいです
なのでMouseDown若しくはMouseUpで拾ってButton=2の場合に、テキストボックスの背景色を切り替える方向で行こうと考えました
MouseDownは１度のクリックで２度処理を行ってしまう為、MouseUPを使用しようと思いましたが、
正直押した瞬間ではなく離した時点なのが至極個人的に違和感バリバリなのでMouseDownでどうにか処理できないかと考えています
その場合、静的変数を用いて２回目かどうかの判定を行うのが良いのでしょうか
195:デフォルトの名無しさん
21/01/07 12:14:22.04 lqyAMCWOM.net
Timerで1秒以内の2回目は止めたら
196:デフォルトの名無しさん
21/01/07 13:06:20.76 LEN4uLCLd.net
for eachでフィルターがかけられた列をコレクションし、現在のセルと一つ下のセルの値を比較しようと思ったのですが、offsetだと隠れた行の数値が参照されてしまいます。
フィルタリングして可視状態の一つ下のセルを参照するには、どうすればよいのでしょうか。
197:デフォルトの名無しさん
21/01/07 15:55:15.71 JVCs6nJOM.net
無理だな
一つ上のを覚えといて比較しな
198:デフォルトの名無しさん
21/01/07 17:04:40.85 lqyAMCWOM.net
該当セルから下方向に、
VidibleがTrueなセルに当たるまで探せば
199:デフォルトの名無しさん
21/01/07 20:16:51.59 GNpPPMMj0.net
>>194
マウス離した時に実行するのがExcelに限らず一般的な動作だと思うが
200:デフォルトの名無しさん
21/01/07 23:26:20.22 q8h4Rq+X0.net
確かに
↓＼→ 弱ボタン離す、でも波動拳出るな
201:デフォルトの名無しさん
21/01/07 23:51:53.97 CAJlIzxl0.net
はどうけんてなんですか
202:デフォルトの名無しさん
21/01/07 23:59:30.52 GNpPPMMj0.net
イギリスのロックバンドのことです
203:デフォルトの名無しさん
21/01/08 07:36:54.65 /1SPkI99a.net
行とか列のデータのある範囲を選択するメソッドありますか？
currentregionの1行だけみたいなイメージで
今思いつくのは無理くり
Range("C5").CurrentRegion.Offset(略).Resize(略～
ないしは
Endとかで割り出してから選択する
とかなんですが
なんかもう少しスマートな書き方があれば知りたいです
204:デフォルトの名無しさん
21/01/08 07:38:15.90 /1SPkI99a.net
説明捕捉
>>203
の表の列はAからD以上まである感じです
205:デフォルトの名無しさん
21/01/08 08:45:53.52 F7dsXzNTM.net
columnsとかrowsプロパティで範囲から希望の列や行を取り出すじゃ駄目なの？
206:デフォルトの名無しさん
21/01/08 09:53:03.11 /1SPkI99a.net
>>205
いや、rowsだと行全体が選ばれてしまうので
例えば
1行目は4列
2行目は5列
とデータの入っている列数がバラバラな場合
（値は全て入っているものとして）
それぞれ4列とか5列分ぴったりに選ぶメソッドは無いものかと
C列基準とかで選べたら一番いいけど
A1選んで「ctrl+shift+→」と同じ結果でもいいです
207:デフォルトの名無しさん
21/01/08 10:06:49.06 /1SPkI99a.net
すみません
>>205
のヒントで自己解決しました
Range("C5").EntireRow.SpecialCells(引数)
でいけました
失礼しました
208:デフォルトの名無しさん
21/01/08 10:12:04.47 0GZaxWieH.net
>>206
一発で求めるメソッドやプロパティはない
たとえば3行目だけ選択だと、たぶんこれが最短
Range([A3], [A3].End(xlToRight)).Select
209:デフォルトの名無しさん
21/01/08 10:18:16.84 /1SPkI99a.net
>>208
ありがとうございます
やっぱり1発ではないんですね
自分が書いたspecialcellも定数と数式とが混在してると
やはりUnionで繋ぐなどしかないので
煩雑になるなあと思っていたので
その書き方の方が良さそうですね
210:デフォルトの名無しさん
21/01/09 19:33:14.89 tpxthpMW0.net
Dirコマンド、
コマンドプロンプトに直書きだとローカルもネットワークも取れるのに、
VBAからWSHで取ると、ローカルしか取れないのは何故?
211:デフォルトの名無しさん
21/01/09 22:38:35.27 sDO7vtGda.net
理由は知らないけど、コマンドプロンプトのDIRコマンドと、VBAのDir関数は別物です
212:デフォルトの名無しさん
21/01/09 22:40:13.80 sDO7vtGda.net
あ、失礼いたしました
VBAのDirでなく、スクリプト経由なのか
１つ前のレスは撤回します
213:デフォルトの名無しさん
21/01/10 01:05:09.81 kg6XuktW0.net
>>210
まあユーザ認証回りだとおもうけど
ちょっとコード晒してみて
214:デフォルトの名無しさん
21/01/10 01:13:14.86 4Xu9louP0.net
>>213
これそのまま
URLﾘﾝｸ(officetanaka.net)
sCmd = "dir [ローカル]" だとOKで、
sCmd = "dir [ネットワーク]" だと取れない
Len(Result)で調べると0文字になってる
コマンドプロンプトでやると取れるから、打ち間違いじゃないと思うんだけど
215:デフォルトの名無しさん
21/01/10 01:40:53.81 bwHYpHvWH.net
>>214
手動でコマンドプロンプトからネットが見えるか再確認した？
Windows Updateするとファイル共有が勝手にoffにされることがけっこうあるよ
216:デフォルトの名無しさん
21/01/10 02:36:39.33 CEBDD+E50.net
>>215
そんなことねーよ
死ね