VBAなんでも質問スレ Part3 (137ﾚｽ)
上下前次1-新
1: 2021/09/09(木)19:46 ID:zfiF925t(1/3) AAS
VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ
ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください
VBAを開発環境としていろいろ作っちゃいましょう
前スレ
VBAなんでも質問スレ Part2
2chｽﾚ:tech
VBAなんでも質問スレ
2chｽﾚ:tech
11(1): 2021/10/26(火)18:21 ID:oxO6XS7Z(1/2) AAS
>>10
隠しシートか、支店名のところに隠れた行があるのでは？
きちんとデバッグしないと分からんけど。
12: 11 2021/10/26(火)18:27 ID:oxO6XS7Z(2/2) AAS
簡単なデバッグとしてら、まずはwithステートメントを全てコメントアウトして、動くかどうか。
あとは支店名のところをシンプルにアルファベットのAからQとかに変えてみる。
13(1): 2021/12/16(木)14:58 ID:6msdMQ6g(1/2) AAS
reportのインスタンスを作成して、property Letでprivate変数に配列を渡した後に、docmd.openreportを行うと変数が全部初期化されるのな。
reportに表示させるものを変数で与えるのは不可能なのかなあ？
やっぱり、クエリとか一時的なテープルが必要なのかな？Openargsで出来そうだけど、数が多いと非現実的だよね。
14: 13 2021/12/16(木)15:02 ID:6msdMQ6g(2/2) AAS
グローバル変数でやるべきかなあ？でも変なときに変数の寿命が来るから不安だよなあ。
15: 2022/02/13(日)16:56 ID:eQTVIxP9(1) AAS
word vbaについて質問です。
本文↓
0001234567891
コード↓
Sub findText()
With Selection.Find
.Text = "1"
Do While .Execute
Selection.Comments.Add Range:=Selection.Range
Selection.TypeText Text:="あ"
Loop
End With
End Sub
特定の文字列を検索し、コメントを追加するマクロを作っているのですが、
コードを実行すると、本文1個目の「1」にコメントがついた後，
2ループ目の「Selection.Comments.〜」で「5935 コメント、脚注および文末脚注は、本文にのみ追加できます。」というエラーが出ます。
コメント入力時にカーソルが本文外に出るのが原因かと思い、
ループの最後にカーソルを本文中（コメントを付けたワードの直後）に戻すようにしたいのですが
どのように記述したらいいのでしょうか？
16: 2022/03/01(火)18:52 ID:gFYHZAxx(1/2) AAS
Excel VBAで質問です
現在開いているシートにマクロボタンを作り、実行させると…
現在シートのB列に検索値
別のシート(ABC)のB列の5行目〜400行目までを検索して一致したセル番号が欲しいのですが
For cnt=1 To 10 samsu(cnt)=WorksheetFunction.Match(Cells(cnt,1),Worksheets(”ABC”).Range(Cells(5,1),Cells(400,1)),0)
…
next
このMatch関数の正しい書き方を教えてもらいたいのですが。
17(1): 2022/03/01(火)20:16 ID:AZ2KEwsI(1) AAS
B列ってcells(?,1)で合ってる？
もうcells(?,"B")しか使わないから忘れた
18: 2022/03/01(火)22:26 ID:gFYHZAxx(2/2) AAS
>>17
すみません。
Bは2でした…
2に訂正しても、match関数としては動かないみたいです。
19(1): 2022/03/12(土)08:01 ID:rBVEQH16(1/2) AAS
質問です。
アクセスから書き込みパスワード付きエクセルファイルに保存するためにエクスポートします。
当然、単純にエクスポートするコードを書いたらエラーで止まります。
これが5年くらい前
最近、この手順を自動化するために
エクセルファイル側の書き込みパスワードを解除し、保存、
アクセスからエクスポートと、いうコードを書きました。
パスワードの再設定をしていないのに正常にエクスポートされ、
書き込みパスワードも正しくかかっています。
パスワード絡みの動作がおかしい気がしますが
心当たりはありますでしょうか？
20: 2022/03/12(土)08:09 ID:rBVEQH16(2/2) AAS
WiNdowsを10にかえたことも影響あるかもしれま追記
せん。
21: 19 2022/04/09(土)10:45 ID:LIGVQVYE(1) AAS
ウインドウズの更新かかったらさらに挙動が変わりましたw
質問の件ですが
もともとファイル内容の変更ではなく
新規作成で問題無い事に気づいたので
パスワードなしマクロファイルを作成→
マクロファイルからパスワード付きで新規(上書き)保存
と、二段階にしました。
22: 2022/05/01(日)14:19 ID:ly+hCRMC(1/3) AAS
2日前まで動いていた自作のマクロが、昨日からウィルスと誤検出されて実行できなくなってしまいました
内容はseleniumでchromeを操作して特定のページを表示させるだけの比較的単純な物です
Windows Defenderの定義と、chromeとseleniumと.netは最新にしましたが改善されません
どうしたら誤検出だとシステムに教えることができるのでしょうか？
23: 2022/05/01(日)14:58 ID:GoET9IZ/(1) AAS
署名
24: 2022/05/01(日)19:48 ID:ly+hCRMC(2/3) AAS
デジタル証明書を作って読み込ませたら実行できるようになりました
ありがとうございました
それにしても、こんなに簡単に証明書を作れてしまうのなら、あんまり意味がない気もしますね
25: 2022/05/01(日)19:50 ID:ly+hCRMC(3/3) AAS
とりあえず実行はできましたが、証明書を入れたら起動がとても遅くなってしまいました
誤検出だと知らせる方法もお願いします
26(2): 2022/05/06(金)17:09 ID:n/glZxQ+(1) AAS
Excel VBAの質問です。
初心者で申し訳ありません。
yahoo知恵袋にベストアンサーにあったものなのです。
Sub Sample1()
Dim dt As Date
dt = Range("D11").Value
Range("D12").Value = GetNENDO(dt, 3)
MsgBox dt & " は " & GetNENDO(dt, 3) & " 年度です"
End Sub
Function GetNENDO(dt, x)
GetNENDO = Year(DateAdd("m", -x, dt))
End Function
Range("D12").Value = GetNENDO(dt, 3)の(dt, 3)が理解できません。
またYear(DateAdd("m", -x, dt))の-xとはどういうことでしょうか。
抽象的ですみません
27(1): 2022/05/06(金)18:24 ID:+CQ2xbTl(1) AAS
自作のファンクションでGetNENDOというのを作っていて、
このファンクションは引数に指定された日付dtに対してxか月前（-x）の日付の年を返却するみたいだね。
今回はセルD11に入っている日付の3か月前の年をD12に設定しているような動作だと思う
例）D11に「2022/2/3」が入っていればD12には「2021」が設定される
28: 2022/05/06(金)19:49 ID:vBpX51Ga(1) AAS
知恵袋さんは回答するだけしといて解説が無いから初心者にはキツイよ
29(3): 2022/05/06(金)22:15 ID:P6mnwuPA(1) AAS
カレンダー年から会計年に変換するVBAのようだが
こんなのワークシート関数で十分なのに有り難がって使う理由が分からんよ
30: 2022/05/07(土)05:50 ID:WpJq4eDb(1) AAS
>>29
プログラミング全般に言えることだけど、単なる数式と比較して、関数化して名前が付けてあると、他人が見た時に用途や動作がわかりやすくなるという大きなメリットがある
31: 2022/05/07(土)23:47 ID:xbH87CjA(1) AAS
>>29
それ言い出したら、「全部0100010101000」で表現できるのにいちいちアセンブラとかありがたがって使う意味わからん、まで遡る。
抽象化は大事だよ。
あと、地の文に「有難がって」みたいなネガティブな印象の語を持ってきて、言いたいことを暗に伝えるのはやめたほうがいいと思う。
ゲスゴミがよく使うんだけど、「・・・などと訳のわからないことを言っており」とか、「行き過ぎた○○の是正を」とかの表現を使って責任逃れしつつ人や物にレッテルを貼る卑怯者に見える。
俺がゲスゴミって表現使ったのことでなんとなく俺のスタンス伝わるだろ？そういう類。
32: 2022/05/08(日)10:19 ID:bTqMUGkM(1/2) AAS
>>29
ライブラリとか作ったり使ったりしたことなさそう
33(1): 2022/05/08(日)10:51 ID:ZAasayov(1) AAS
>>26にある知恵遅れ袋の回答者が来てるようだな
34(2): 2022/05/08(日)11:57 ID:wZiRxxsO(1) AAS
>>26
GetNENDはなんでわざわざ引数2つにしてるんだろうな
年度を求めるなら暦年との差は必ず3な訳で、
2つめの引数に3以外を指定するならGetNENDOって名前が不適切
>>33
外部ﾘﾝｸ:detail.chiebukuro.yahoo.co.jp
これだろ？
質問の要件が「エクセルのVBAを使って」なんだからおかしくはない
35(1): 2022/05/08(日)13:10 ID:spHVpjBs(1/2) AAS
>>34
年度が4月始まりじゃない場面は業界によって色々ある
36: 2022/05/08(日)14:40 ID:bTqMUGkM(2/2) AAS
>>35
それは事業年度
年度とだけ言う場合は4月始まりだよ
37: 2022/05/08(日)15:13 ID:spHVpjBs(2/2) AAS
その関数を何の用途に使ってるか部外者にはわからない
デフォルトが何かも職場によって違う
画像ﾘﾝｸ[jpg]:cdn.img-asp.jp
38: 2022/05/10(火)02:24 ID:vf3aVjoi(1) AAS
知恵袋をたまに見てるとさ、無言で変な構文やなんかのサイトを張り付けて去っていく回答者いるけど、なんか不気味じゃない？？
39: 2022/05/10(火)08:22 ID:YKOd6nzx(1) AAS
事業年度や会計年度は主体・組織によって全く異なる。
会社だと3月期決算の会社は4月始まりだが、
3月期決算でない会社は世の中にたくさんある。
学校年度だって国によって違う。
4月始まりの日本は少数派。
40: 2022/05/10(火)09:44 ID:rTLlCkMy(1/2) AAS
自転車置き場の議論
41: 2022/05/10(火)09:47 ID:rTLlCkMy(2/2) AAS
年度が4月始まりじゃないならなおさら二つ目の引数は馬鹿丸出しだろ
普通年度始まりの月とかにしないか？
42(1): 2022/05/10(火)14:23 ID:jpNs1/la(1) AAS
26です
>>27
ありがとうございました。
>>34のとおりの知恵袋です。
解説が欲しかったので助かりました
43: 2022/05/11(水)08:32 ID:RGJRKSrA(1) AAS
>>42
VBAなんてExcelに該当のコード貼り付けてステップ実行もすぐできるんだからためそうぜ
「Year(DateAdd("m", -x, dt))」についてはヘルプに引数の説明が載ってるんだから見て理解しないと今後が思いやられるぞ
44(12): 2022/06/17(金)09:07 ID:h3dE1ejj(1/2) AAS
今日の発見
Option Explicitの有無でサブフォームの選択の仕方が変わるのな
ちゃんと書かないとエラーになるコードもOption Explicitを消すと動く
45(1): 2022/06/17(金)09:41 ID:6P0695t/(1) AAS
エラーにならないようにちゃんと書け
46: 2022/06/17(金)10:05 ID:h3dE1ejj(2/2) AAS
>>45
行数が節約できるじゃん。それにOption Explicitを書かないとちゃんと動作するんだよ。
このことはどこかに書いてないかな？
47: 2022/06/17(金)12:05 ID:gheAsVGh(1/3) AAS
自分は業務で使うちょっとしたツールをVBA使う事があるけど
Option Explicitを書いてもちゃんと動くようにコーディングするのが普通だと思うから外すつもりはないけど
行数削減目的で外すとかは絶対ないわ
若いもんに作らせて外されててつけたら動かないようなもの持ってきたら作り直させるね
48: 2022/06/17(金)13:12 ID:6WxlvkUP(1) AAS
エラーになるってことは変数宣言されてないのが含まれてるってことだよな
ちゃんとエラーで止まるコードと何となく動くけど実はバグってる（けど気づかない）コードとどっちが良いのか良く考えなよ
49: 2022/06/17(金)13:56 ID:gheAsVGh(2/3) AAS
まず「ちゃんと書いてない」部分が何かわからないから議論にならないでしょ
ただ>>44のVBAはちゃんとかかなくても動いてる（目的が達成できる）ならそれでいいと思う
自分とこの業務だったら拒否するけどね
50: 44 2022/06/17(金)16:46 ID:MN10NcFA(1) AAS
購入した業務用のmdbのコードが余りに酷いからリファクタリングごっこしてるうちに見つけたんですよ。1200以上のモジュールをOption Explict化したら急にオブジェクトが見つからないとか言われて驚いたんですよ。変数宣言は1週間かけてチェック済なんですよねえ。不思議ですよねえ
51(1): 2022/06/17(金)17:05 ID:qX3KJPna(1) AAS
それはOption Explict化をミスってるんじゃないか
広域で定義（または利用されて暗黙的に定義）されてる変数を
ローカルで定義したとかの可能性が高い
つか1000以上のモジュールがあって販売してるようなプログラムとは思えん作りだな
52(1): 2022/06/17(金)17:25 ID:gheAsVGh(3/3) AAS
「ごっこ」って言葉を免罪符にしてるんだろうけど
直せないならやらなきゃいい
53: 2022/06/17(金)22:53 ID:ai+zswsd(1) AAS
>>44
Option Explicitはあえてエラーをエラーとするようにするための記述だからな
HTMLでいうstrictだよ
54(1): 44 2022/06/18(土)08:43 ID:hwKe4qoR(1/2) AAS
>>51
> 広域で定義（または利用されて暗黙的に定義）されてる変数を
> ローカルで定義したとかの可能性が高い
でも、Compileは通るんですよねえ。
あとで実験してみますね。
>>つか1000以上のモジュールがあって販売してるようなプログラムとは思えん作りだな
愚痴らせて下さい。
金取るくせにOption Expliciじゃないモジュールが多数。変数がなんでもかんでもVariant。変数の使い回しし放題。インデントがめちゃくちゃ。
命名規則がメチャクチャでバラバラ。
古いコードがコメントアウトで多数残ってる。何十行ものコメントアウトがたくさんあって読みにくいたらありゃしない。
戻り値を返さないFunction。戻り値が返ったと思ったら、受け取る変数はどこでも読まれない。Subでいいだろうが。
宣言だけして利用されない変数多数。空のプロシジャーを呼び出すなど無意味なコード。
とりあえず読み書きされない変数は全部削除しましたが3日かかりました。
全部変数宣言するには1週間かかりました。
分析ツールは他にも多数のDead Codeを指摘していますが、全部はできません。
酷すぎます。
55: 44 2022/06/18(土)08:49 ID:hwKe4qoR(2/2) AAS
>>52
おいら、プログラマーじゃないんだよ。だから「ごっこ」と書いた。でも本はちゃんと買ってあるよ。
業務で利用しているAccessを改良しているうちに泥沼にはまったんだよ。
Accedssを初めて使ったときは変数という言葉も知らなかったよ。
56: 2022/06/18(土)10:39 ID:hicnRT7U(1/2) AAS
なんにせよAccess VBAはスレチ
Explicitの綴り間違えすぎてるのも怪しいし
57(1): 2022/06/18(土)11:58 ID:pdXNHIfJ(1) AAS
ここはVBAなら何でもありだと思うけどな
「Excel VBA」スレと間違えてないか？
58: 2022/06/18(土)12:55 ID:hicnRT7U(2/2) AAS
>>57
まさにそっちと間違えてた
ごめんなさい
59: 2022/06/18(土)13:38 ID:T0WefD6f(1) AAS
>>54
あるあるだね
とくに若手に作らせるとそんなもんだよ
命名規則とかインデントとか、とにかく余裕がなくて勉強してるヒマがない
納期に追われて、とりあえず動く物を作るのでせいいっぱい
まあ自分の担当になったんなら、気長に直していくこったな
俺はひどいコード直すの嫌いじゃない
最近はいいツールあるしね
インデントぐらいならほぼ一発で綺麗に直してくれるし
60: 2022/06/18(土)18:52 ID:59smDk8e(1) AAS
購入品なら不具合出たら責任取らせればそれで済む話
リファクタリングなんて自分の勉強目的以外は無意味
自分の勉強目的ならここに愚痴だか何だかわからない書き込みをするのも無意味
61: 44 2022/06/18(土)22:31 ID:yLkug1TW(1) AAS
書いてみて反応がなければよし、あれば語らう。
自由な空間で試行錯誤をすることを否定するなよ老人脳。
62: 2022/06/19(日)10:16 ID:MMGrL0A+(1) AAS
スレも理解できない奴が他人を批判するのもどうかと思うけどな
そもそもソースすら満足に直せない奴も低能なのではないか
63: 44 2022/06/19(日)13:49 ID:ZfwUc+SV(1) AAS
ソースは差し障りがないように改変して皆さんに相談してみたいと思います
64: 2022/06/19(日)14:32 ID:umGSPst7(1) AAS
>Option Explicitの有無でサブフォームの選択の仕方
選択の仕方ってのがどういった状況を指してるのかわからんけど
正常に動作してる状況で宣言の有無でそれが変わる例が思いつかんわ
そこだけでもコード曝せ
65: 44 2022/06/19(日)14:36 ID:7hrQJOKY(1) AAS
私も非常に驚いたので晒したいです。
今日は家族サービスでできないので近いうちに。
66: 2022/06/19(日)14:56 ID:Avfsw1Xy(1) AAS
>>44
それは解決とは言えんのだな
バグり上等でとりあえず動けばいいなら
67: 2022/06/19(日)17:19 ID:Mrl+aHBB(1) AAS
さしあたり1200以上のモジュールってのは行数のことだよね
68: 2022/06/19(日)17:50 ID:r9O1Cbix(1) AAS
オプエクで動かなくなるのって、デフォルトプロパティあたりのタイプミスとかじゃないのかなあ
晒せるように改変してたらあっさり解決したりして
69: 2022/06/20(月)12:29 ID:Kyf/A8dE(1/3) AAS
若手って何歳を指しているのよ？
まさか40代を指して若手とか定義しているのか？
70: 2022/06/20(月)12:49 ID:qN1xu+JG(1) AAS
年齢でも勤続年数でもないのは確か
何ができたら一人前とか定義するのも不可能だし
71(1): 2022/06/20(月)12:58 ID:KWqGfZyo(1) AAS
初心者の定義ならできそう
マニュアルを読まない
型を適切に使い分けない
コーディングルールを意識しない(インデントやコメント、命名規則も含む)
エラーメッセージを読まない
とにかくググらない
72: 2022/06/20(月)13:20 ID:+4siy80v(1/3) AAS
いきなりあのマニュアルは敷居が高すぎる
とは思う。
73: 2022/06/20(月)13:30 ID:6co1WthA(1) AAS
マニュアルってどれ？
74(1): 2022/06/20(月)13:49 ID:+4siy80v(2/3) AAS
外部ﾘﾝｸ:docs.microsoft.com
とか。
75: 2022/06/20(月)14:10 ID:cxkBtu38(1) AAS
>>71
それは初心者でなくバカなだけでしょ
自分ができない事の原因にそれがあったら直せといいたい
76: 2022/06/20(月)17:54 ID:Kyf/A8dE(2/3) AAS
ググるっつても、見るのは当然MSヘルプのみ。
上級者はこれ。
他の訳の分からないサイトは一切見ないと聞いた
77: 2022/06/20(月)18:15 ID:+4siy80v(3/3) AAS
それは構文なんかのお作法が頭に入っているから出来る話
78: 2022/06/20(月)20:25 ID:+SBlN13D(1) AAS
>>74
リファレンスマニュアルのことをマニュアルって呼んだり読むっていう文化無かったからびっくりした
リファレンスって呼んでたし見るって言ってる
確かにマニュアルだけど
79: 2022/06/20(月)22:02 ID:Kyf/A8dE(3/3) AAS
上級者はMSヘルプだけで解決と聞いた
訳の分からないサイトは参考にしないと
80: 2022/07/27(水)10:15 ID:llycacgt(1) AAS
PowerPointのVBAについてご教示ください
・達成したいこと
社内作成のファイルを顧客に送付するための処理としてスライドに表示されている情報以外(個人情報、非表示スライド、ノート)を削除したい
・うまくいかないところ
ノートのスライドイメージを残しつつ、それ以外を削除すること
・試したこと
NotePage.Shapesを全削除→スライドイメージごと削除されてしまう
DocumentInspectors(4)でノート削除→ノートに貼られた図などが残る
81(1): 2022/08/06(土)17:28 ID:11wPPJ/9(1/2) AAS
ワードVBAでの質問です．
ワードの連番フィールド（SEQフィールド）の結果を文字列で固定したいのですがどうすればいいでしょうか？
多くのフィールドは
ActiveDocument.Fields.Unlink
で固定化できるのですがSEQフィールドは対象外です．
よい方法があれば教えてください．
82: 2022/08/06(土)17:36 ID:11wPPJ/9(2/2) AAS
>>81
自己レスです。
Ctrl + a、Ctrl +shift +F 9でできました。
マクロでCtrl +shift +F 9の操作を記録したのですが何も記録されませんでした。VBA には対応するコマンドはないようですね。
お騒がせしてすいませんでした。
83: 2022/09/20(火)17:19 ID:Y1fqDNiq(1) AAS
今日ろくに考えずに書いたのが
上手く動いて驚いた
しかも期待する以上の働きを
してたわ
本当に大丈夫か心配だけど
じっくり見る気力がないわ
84: 2022/09/20(火)23:12 ID:E6px8L9o(1) AAS
良かったね
85(1): 2022/11/05(土)23:23 ID:q1vpSefi(1) AAS
WORD VBAでハイパーリンクをクリックする処理はどうすればいいでしょうか．
ハイパーリンクをクリックしたときに処理Aを同時に実行したいのですが，エクセルVBAはのようにハイパーリンクのクリックイベントがWORDVBAにはないので，逆にボタンに処理Aと塀パーリンククリックの処理を書こうとしています．
ご存知ならば教えてください．
86: 2022/11/06(日)11:57 ID:YZhV7ZFA(1) AAS
こことか詳しいんじゃね？
外部ﾘﾝｸ:www.tipsfound.com
VBA絡みならこっちとかも
外部ﾘﾝｸ:draft.ecophysical.com
87(1): 2022/11/06(日)13:00 ID:mzFwuoQr(1) AAS
>>85
環境ないから試せてないけど follow じゃないの？
外部ﾘﾝｸ:learn.microsoft.com
88: 2022/11/06(日)13:33 ID:BQYduCLI(1) AAS
>>87
ありがとう
followで上手くいきました
89(1): 2023/01/15(日)17:27 ID:L0piBEvX(1/4) AAS
a=Application.InputBox(”英数字を入力して下さい”,“～を入力“)
この入力の時に、全角モードになっていても半角英数字の入力に自動で変更する方法はないでしょうか？
sendkeys “%{kanji}“を使用すると、半角英数字になっていた時に全角モードにされてしまいます。
よろしくお願いします。
90(1): 2023/01/15(日)17:32 ID:oiU86Xgn(1/2) AAS
>>89
外部ﾘﾝｸ:infith.com
91: 2023/01/15(日)17:42 ID:L0piBEvX(2/4) AAS
>>90
ありがとうございます。
ここのページも見て試したのですが、実行した後に手動でセルに直接入力する場合には確かに半角英数字になるのですがinputboxからの入力ではIMEの方が強いみたいです
92(2): 2023/01/15(日)19:16 ID:2OoagcjS(1) AAS
a=strconv(input…じゃだめ？
93(1): 2023/01/15(日)19:45 ID:wWThixkU(1) AAS
if IMEStatus=vbIMEModeOn then
sendkeys “%{kanji}“
end if
でどうですか？
94: 2023/01/15(日)21:24 ID:L0piBEvX(3/4) AAS
ありがとうございます
>>92
試してみますね
>>93
そのやり方と
If IMEstatus<>vbIMEModeOff then
Sendkeys “%{kanji}“
End If
のやり方も駄目でした
inputbox後や前に
msgbox IMEstatus
を置いてみると常に3を吐いています
95(1): 2023/01/15(日)21:28 ID:L0piBEvX(4/4) AAS
>>92
入力後の半角英数字化ではなくて、入力時には半角英数字になっている状態にしたいです
96: 2023/01/15(日)21:34 ID:oiU86Xgn(2/2) AAS
>>95
外部ﾘﾝｸ[htm]:officetanaka.net
97: 2023/01/16(月)21:05 ID:/FEcft61(1) AAS
ユーザフォームで作るのはだめなのか？
98(3): 2023/01/26(木)00:20 ID:gEJbNrm3(1/2) AAS
初心者です。
Excelシート上に、activeXコントロールのボタン、コンボボックス、テキストボックス貼り付け
そのプロパティ見ても、タブインデックスが見当たらない？
Excelシート上では、タブインデックスは設定不可なのですか？
教えて先輩方
99(2): 2023/01/26(木)01:01 ID:XU6i0xq0(1) AAS
>>98
自動でやるのは不可能
Tabが押されたらカーソルを移動するプログラムを1つずつ自分で書く必要がある
100: 2023/01/26(木)09:05 ID:gEJbNrm3(2/2) AAS
>>99
ありがとうございます
101(1): 2023/01/29(日)18:23 ID:MSlBVOmY(1) AAS
アクセスVBAの質問です。
目的のフォルダーにカレントフォルダ―を変更してからファイル選択ダイアログを開こうとしていますが、カレントフォルダーが変更されません。
ChDir "C:\" & 目的フォルダー名
With Application.FileDialog(msoFileDialogOpen)
If .Show = True Then
フルパスのCSVファイル名 = .SelectedItems(1)
Else
Exit Sub
End If
End With
どこがおかしいのでしょうか？
102(1): 2023/01/29(日)21:03 ID:CDZO9Bih(1) AAS
>>101
.InitialFileName
103: 2023/01/30(月)10:59 ID:pg83Lxmz(1) AAS
>>102
ありがとうございました。
できました。
ChDir "C:\" & 目的フォルダー名
はいらないのですね。
104: 2023/02/04(土)13:27 ID:ILEoM5pM(1) AAS
ニワかAccess使いか
105(1): 98 2023/02/05(日)00:51 ID:x+/z83/X(1/2) AAS
>>99
フォーカスのセットができないですね
うーん
106(1): 2023/02/05(日)09:32 ID:kGhYs+bB(1) AAS
>>105
フォーカスの移動だけならこのへんがヒントになるかな
外部ﾘﾝｸ[html]:excel-ubara.com
ただしEnterでクリック(確定)はまたちょっとハードルが高い
107: 98 2023/02/05(日)11:03 ID:x+/z83/X(2/2) AAS
>>106
ありがとうございます
調査してみます
108(1): 2023/02/07(火)02:06 ID:HGM7cRGk(1) AAS
VBAが壊れたファイルってもう駄目ですか？
何か壊れた時の対策はしてますか？
109: 2023/02/07(火)02:14 ID:u80ccXtt(1) AAS
VBAに限った話では無いけどデータ破損に備えてファイル履歴残しておくのは最低限の心構えだと思うけどな
110: 44 2023/02/07(火)14:59 ID:PRRTh57q(1/2) AAS
>>108
何か改造する度にコピーを作成してクラウドで二重化しているなあ｡
コマンドボタンを1個置いただけでmdbが壊れて途方に暮れてからそうしている｡
111(1): 44 2023/02/07(火)15:17 ID:PRRTh57q(2/2) AAS
外国のサイトを巡っているときに壊れたmdbを修復すると謳うユーティリティーソフトを見た覚えがあるなあ｡
フリーの奴をダウンロードして使った記憶がある｡俺の場合は役に立たなかったけど､試す価値はあると思う｡
112: 2023/02/07(火)20:55 ID:uVJ5qMcc(1) AAS
昔に比べりゃだいぶ減ったよねブック破損やマクロ破損は。
113: 2023/02/07(火)22:11 ID:n590V07Z(1) AAS
俺生まれてないや
114: 2023/02/08(水)02:12 ID:k9oPh+Xg(1) AAS
歳いくつよ？
115: 2023/02/08(水)07:56 ID:XG6Lxj8v(1) AAS
5chは年寄の巣窟ですよ。
子供は他所で遊んだ方が良いですよ。
116: 2023/02/08(水)08:52 ID:8aAMf1oY(1) AAS
>>111
バックドアが結構入ってるから会社ではやらん方がいいよ
117(1): 2023/02/08(水)16:38 ID:WlEF04f4(1) AAS
BEｱｲｺﾝ:u_sii_naname.gif
１．CommandButton1_Click
ウインドウ作成
GetWindowLongPtr→RegisterClassEx→CreateWindowEx
作った窓のウインドウハンドルはパブリック変数に格納
２．CommandButton2_Clickで削除
ウインドウ破棄
DestroyWindow
３．ウインドウハンドル確認ソフトでもウインドウが消えてることを確認し、
手順１に戻るとRegisterClassExが失敗(戻り値ゼロ)になる
何でかな？
118(1): 2023/02/09(木)15:34 ID:1BKoKxeD(1) AAS
>>117
「何で」がどこを差しいているかわからんが、 2で破棄したからじゃね
119: 2023/02/09(木)18:57 ID:7UZecPSw(1) AAS
>>118
自己解決したわ
手順３でDestroyWindowの後、UnregisterClassを入れないと駄目らしい
120(3): 2023/02/27(月)17:10 ID:GEmICUaj(1) AAS
購入さたパソコンはオフィス非搭載
VBAは以前簡単なモノは作ってましたが、すっかり忘れてます。
再び勉強してみようかと思ってますが、
無料ソフトのカルクでVBAがある程度学習できるとネットでみつけましたが、これは本当に可能ですか？
pythonは大学が無料テキストを公開してますが、VBAの無料テキストは検索しても見つかりませんでした。
どこか無料テキスト公開しているサイトを知りませんか？
121: 2023/02/27(月)19:15 ID:O7Tjun9K(1) AAS
>>120
外部ﾘﾝｸ:learn.microsoft.com
外部ﾘﾝｸ:learn.microsoft.com
122(1): 44 2023/04/20(木)13:04 ID:b7y+tf5m(1) AAS
みなさん､Accessに外部からLoadFromTextを行うときに出てくる ｢この操作を実行するとプロジェクトがリセットされます。実行しますか?｣ を出なくする方法を知ってますか？
1000以上のモジュールをインポートしないと行けないので､1000回以上ボタンをクリックするのが面倒くさいです｡
123: 2023/10/12(木)00:31 ID:DQl6JD4W(1) AAS
>>120
私もVBAの勉強中です
こちらのサイトは軽くて読みやすい気がします
外部ﾘﾝｸ:www.tipsfound.com
124: 2023/10/12(木)13:57 ID:UgjJPXcW(1) AAS
>>120
MSのサイトでリファレンス公開されてるじゃん
125(3): 2024/02/11(日)15:33 ID:xHqPXMK5(1/2) AAS
VBAが廃止予定とマイクロソフトから予告めいたことが出てるらしいですが、実際はどうなんでしょうか？
126(1): 2024/02/11(日)17:45 ID:XgIjLyiU(1) AAS
>>125
その予告によるとVBAの移行先は何処と言ってるの？
127: 2024/02/11(日)18:01 ID:RI7D2x7j(1) AAS
>>125
それ5年前にも10年前にも聞いたけど、10年たってもあんまり進んでないからあわてる必要は全然ない
128: 2024/02/11(日)18:03 ID:ESz2cAkb(1) AAS
>>122
そもそも、手動で1個ずつインポートして「ダイアログを出なくする方法」を探すこと自体が間違ってる
1回で済むようにまとめるか完全自動化するのが正解
129: 2024/02/11(日)20:19 ID:xHqPXMK5(2/2) AAS
>>126
Office系がWebView I/Fになり、
JavaScriptになると言ってます
130: 2024/02/12(月)08:25 ID:RQTXNg3h(1/2) AAS
>>125
VBA廃止してPythonにすっからよろしくな！
↓
Python導入辞めるわ、使いたかったら優れたアドオン2つあるから使ってな！
って前科もあるし
131(1): 2024/02/12(月)08:37 ID:B2pA3A78(1) AAS
Python導入辞めるって公言したの？
132: 2024/02/12(月)08:51 ID:RQTXNg3h(2/2) AAS
>>131
大分前に公式フォーラムで開発者が発言してる
MS広報としての発言ではないけど
133: 2024/10/15(火)12:50 ID:deB0cZxN(1) AAS
Python上げVBA下げしてる気持ち悪い奴ら
2chｽﾚ:tech
134: 02/03(月)22:35 ID:HhGdF8Qe(1) AAS
そもそもPython導入って正式にアナウンスされたのか？
135: 05/05(月)04:29 ID:Q8K4+hk+(1) AAS
されてない
中の人がブログに個人の感想を書いたら勝手に尾ヒレが付いて噂が広まっただけ
136: 05/05(月)08:07 ID:nZUz3osk(1) AAS
Pythonは別の形で導入済み
py関数に生まれ変わった
137: 05/07(水)23:13 ID:5rQjCI4p(1) AAS
VBA廃止とPythonでの機能追加は関係のない話
VBAを廃止したいのは当然のこと
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.599s*