Excel VBA 質問スレ Part71 YouTube動画>3本 ->画像>7枚

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

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

※前スレ
Excel VBA 質問スレ Part70
http://2chb.net/r/tech/1616072923/

---

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

↑おつ

>紙の表を目で追いながら画面を見ずにどんどん入力するとか普通にある

下手に補完機能とか発動するとうざいよな

時々画面も見たほうがいいぞ

画像のような処理をするコードを書きたいのですが・・・
整理番号に対してアルファベットがランダムに振られており、それをまとめるというようなコードです。
ただし、まとめたい整理番号は行が飛び飛びになっており固定されております。
forやifなどを少しかじっただけのため、頑張ってみましたが全くできませんでした。
何卒宜しくお願いいたします。

いつものあいつ

のんびりやろうぜ

>>5
法則がまったくわからん

>>5ですがウンコしてたら閃いてできました。でももしどなたか書いてくださってたら、参考のために見せていただけると嬉しいです。

>>8
整理番号に対してくっついているアルファベットを、重複削除して横向きに整頓したという感じです。

ID:mkbiTVsAdはとにかく繊維質と水分を十分に摂って山ほどウンコしろ
そうすればこのスレを必要とする事も無くなるだろ

入力データは違うけど、Ruby で作ってみた

require 'csv'

tmp_hash = { }
input_ary = CSV.read( "input.csv" ) # 2次元配列

input_ary.each do | row | # 1行ずつ処理する
if tmp_hash.has_key? row[ 0 ] # 既に、その数字が存在すれば
# 文字列が存在しない時だけ、その文字列を追加する
tmp_hash[ row[ 0 ] ][ row[ 1 ] ] = true unless
tmp_hash[ row[ 0 ] ].has_key? row[ 1 ]
else
tmp_hash[ row[ 0 ] ] = { row[ 1 ] => true }
end
end

result_ary = tmp_hash.map do |num, hash|
ary = hash.map { |str, b_true| str }
[ num, *ary ] # 配列展開
end

# p result_ary # 2次元配列
# [["1", "A"], ["2", "B", "C"], ["3", "X"]]

csv_str = result_ary.map( &:to_csv ).join # 2次元配列を、CSV 文字列に変換する
print csv_str

出力
1,A
2,B,C
3,X

>>9
1と3は、整理前と整理後で同じ行にあるけど、2と4が上に移動してる理由がわからん
移動量も違うし
条件は全部文章で書いて

いつものあいつ＝ruby馬鹿

>>5
Dictioraryを使わずにデータを1列目〜2列目、出力先を4列目以降であると仮定する

配列 = Range(Cells(出力先の1番上の行,4),Cells(出力先の1番下の行,4))

For i = LBound(配列,1) to UBound(配列,1)
For j = データの一番上の行 to データの一番下の行
If Cells(j,1).Value = 配列(i,LBound(配列,2) Then
If 配列(i,UBound(配列,2) <>″″ Then
ReDim Preserve 配列(LBound(配列,1) to UBound(配列,1),LBound(配列,2) to UBound(配列,2)+1)
End If
For k = LBound(配列,2) to UBound(配列,2)
If 配列(i,k) = Cells(j,1),Value Then
Exit For
Else If 配列(i,k) = ″″ Then
配列(i,k) = Cells(j,1),Value
End If
Next
Next
Next

ってやって出力するとか？
思いつきで適当にやったから動かなかったらゴメンね

>>12
移動後の整理番号の位置は決まっているだけ　という話なのですが...　というかそれは書いてあるのですが

>>14
おお　ありがとうございます
参考にさせていただきます

>>11
このバカはなんですか？

>>5
ピボットテーブルでいいやん

>>17
添付画像は簡略化してあるだけなので...
本当に画像みたいなデータしかないんだったらいいかもしれないですが...

>>11
頭が悪いの？
大丈夫？
日常生活は遅れてる？

>>19
聞いても無駄
自覚できてないからずっとこんなこと続けてるんだろ

Ａ列がＫｅｙ、Ｂ列がＩｔｅｍが入っていたとして、一括でＤｉｃｔｉｏｎａｒｙに代入する方法はありますか

今はＦｏｒで処理していますが、
For r = 1 To 10000
dic.Add Cells(r, 1), Cells(r, 2)
Next r

だと読み込みに時間がかかり、配列のほうが早いくらいです

どう頑張っても配列のほうが速いよ

そもそもDictionaryにRange型も入れられるんじゃないっけ？
だから「配列の方が速い」という使い方ならCellsの後にValue付けなきゃいかんのでは

>>23
ありがとうございます。

>>21
スピードを求めているの？
ならシートにSQL投げた方が速い場合もあるよ
格納場所はRecordsetになるけど

>>24
それだと重複時に例外が出るメリットが生かせないのでは
配列でいいって言ってるから保証出来てるのかも知れないが

（最終的な目的次第では不要な可能性もあるけど）Dictionaryが必須だとしたら、
使用しない行を予めオートフィルターで弾いて読み込む行自体を減らすのがいいと思う

>>23
配列を使うとセルへのアクセスが一万分の一なるね

>>27
非表示になってるセルもRange型一括だと配列に代入されてしまう
1つずつチェックしながらForで回すしかなくなるから、どっちが速いかなあ

>>28
2列あるから2万分の一だよ

つかまずディクショナリに入れたいのはRange型なのかそのセルの値なのか

なんにしてもこの程度は一瞬で終わったけどな

>>26
シートにSQLはよく使うが、
数字が入ってると数字と判定されやすいの何とかならんかな。
IMEX=1も利かないときあるし。
(セルの書式設定で文字列にするのは全然効かん)

>>32
あー、あるあるだね
その辺はSQLの書きっぷりで例えば
数値として判断させるならケツに*1くっつけるとか
文字列としてならケツにブランクくっつけてやることで何とかなるけど確かにあまり綺麗な形とは言い難いかもね。

VBAのユーザーフォームについて、
プロパティウィンドウ上でフォントサイズを変更しようとした場合、
Fontの右側に出てくる[...]ボタンを押して、フォントウィンドウ上でサイズを選択するのが普通ですが、
ボタンを押すとなるとマウス操作が必要になります。

フォントサイズを変更する時に使えるキーボードのショートカットってないですか？

>>34
F4でプロパティウィンドウに移動、↓でフォントの行に飛んでからAlt+↓を押すとフォント選択ダイアログが開く

Alt+↓では開きませんでした。

ForeColor等のように、右側に出るボタンが ▼ の項目については、
Alt+↓で選択候補がプルダウンで表示されました。
これは知らなかったので、一つ知識が増えました。ありがとうございます。

>>36
ただの馬鹿だろ

数が多いときはforで回してフォントサイズを変えた方が楽

>>36
フォントが大量にインストールされてると、ダイアログが開くのに時間がかかる
ほかにも、PictureプロパティとかIconプロパティなんかの[...]ボタンもAlt+↓で押せるはずだから試してみて
それも開かないとなると、何かがおかしい

ところがLinuxなら一瞬で開きます。

>>40
そういうことはubuntuでEXCELが使えるようになってから言おうね

なんのために？
ベンダーロックインされてM$の奴隷になりたいの？

>>42
やっぱりあわしろ教信者の荒らしか
こいつらとRuby信者はわざわざ自分の巣から出張して来て無関係のスレ荒らすから分かり易い

EXCELが動かなきゃEXCEL VBA動かすことが出来ないだろ？
お前が来ているこのスレの名前を100回読み返してみようか。そうすれば多少頭に血の巡りが悪くても少しは理解出来るだろ

前スレでボロクソに言われた質問(↓)が解決しないので
再度投稿失礼します。




在庫管理でクロス集計表を使ってるんだけど
配列で取り込んだデータをデータがあったセル位置に戻す時って
どう指定してあげればいいの?
【用途】
納期毎に設定される納品数を在庫から引いて
いつ欠品になるか知りたい

伝わるか分からないけど↓
使ってるフォーマット形式
縦列
部品名
在庫
横
納期
納品数

Cells(1,2)=123

>>44
命綱なしで62階建てのビルの屋上からぶら下がり懸垂をすると閃くかもしれんぞ







保証はしないけど

わざわざVBA使わなくてもワークシート関数で出来そうだけど

>>44
まるでまだ欠品していないみたいな書き込みだな
そんなことやるひまがあるならさっさと発注しとけよ

変数 = セルの範囲　を
セルの範囲 = 変数　と逆にするだけ

>>49
そのセルの範囲の指定の仕方がいまいちピンと来ません...

>>50
2000ボルトの電気ショックでわかるようになるかもよ

>>50
配列の変数名をTgtAryとするならば
Range(Sheet1.Сells(LBound(TgtAry,1),LBound(TgtAry,2)),Sheet1.Сells(UBound(TgtAry,1),UBound(TgtAry,2)))
で範囲指定できないかな？

>>52
そいつはsubからend subまで書いてやらんと分からんやろ

>>34
遅まきながら横からながら
マジありがとう！　これ知らなかった！　心底欲しかった！

>>54
△>34
◎>35
連投すまんアンカ間違った

>>52
>>53
ありがとう！
ちょっと試してみます！

Workbook_Openで表の処理とその上書き保存（ActiveWorkbook.Save）を同時にこなしてるのですが、直後になぜか.savedがTrueになりません。
しかしその後もう一度手動でWorkboon_Openの中身を実行すると、今度はTrueになります。

上書き保存の可否を聞かれずにファイルを閉じたいのにいちいち聞かれて困っております。どうしたらよいのでしょうか？

ひとまずOpenイベントの頭にStop書いてブレイクポイント作ったら開き直してイミディエイトウィンドウにDebug.Print Workbook.Savedって書いたら
F8押して、イミディエイトのDebug.Printの行末をクリックしてEnter、F8押して、イミディエイトのDebug.Printの行末をクリックしてEnter
ってやってみてもWorkbook.Saveの行でTrueになってないか見てみ？

>>58
Savedの行以降、確かにFalseからTrueになってるし、
Workbook_OpenのEnd Sub直前にStop入れてDebugで確認してもTrueでした。
なのに、End SubをまたぐとFalseになります。

>>59
×　Savedの行
○　ActiveWorkbook.Saveの行

>>57
こんな感じの参考になる？
http://officetanaka.net/excel/vba/file/file03.htm

Openの時はActiveじゃないんじゃない

ActiveWorkbookじゃなくてThisWorkbookの方が確実ではあると思うけどEnd Subを跨いだ瞬間に変更フラッグが立ってるのがいまいち分からんなぁ

裏で動かすマクロは、常にオブジェクトを明示しないとバグの元になる
ActiveSheetとか使うと高確率で誤爆する

ThisWorkbookにしたり、わざわざSavedにTrueを代入してやっても、End sub をまたぐとやはりFalseになってる……
皆さん指摘の通りなんかブックの指定にミスがあるかもしれないので、もう少し色々試してみます

まずないとは思うがSaveの前にDoEvents挟んでみるとかはどう

わからない時はdebug.printしまくる

Openイベントが終わったの後に変更があるとか？
例えばピボットの「開いた時に更新する」とか

>>65
だから>>61のリンク先に書いてあるように
Application.Displayalerts使っちゃダメなの？

VBAでIEを操作したい。エレメント内のonclickにJavaScriptが設定されてて、引数がthisなんだ。これはどういうコードかいたらJavaScriptがうごく？

いまだにIEとか

スクリプト動かす必要があるなら泥沼だからやめとけ
SeleniumかRPAかなんかでクリックをエミュレートしろ

>>70
JacascriptそのままNavigateでたいがい動くけど、実際に試してみた？

VBAでChromeを動かす方法はありますか？

VBA Chromeでググれば色々でるが
お前がどう動かしたいか答えるのはエスパーしか無理

Chrome使っていいんだったらエクステンション作ればよくね
VBAに固執する意味がない

A列は途中で未記入の行は無し。B列以降は行によって列範囲は不明。途中の抜けは無し。この条件で一番右まで記入されている列は何列目なのかを知る方法をご教示願います。
この列の右に別の列を追加したいのです。

>>77
UsedRange.Column

VBAでIE動かしたいっていうのは社内システムの操作じゃね
自動化しようにもそれしか選択肢がないっていうケース

そういうのは末端の社員が勝手に自動化して楽しようとしてるケースに限られる
そうでなければシステム部とか管理部がちゃんと対応してくれるはずだし

末端しかこんなところにはこねーよ

IEが2022/6/15にサポート終了する件なんだけど、VBAのIE操作もできなくなるの？

>>74
これでいいんじゃね？
https://note.com/teihen_escape/n/n40e672b1c97f

>>82
サポートの終了と使用の禁止はまた別の話だと思うけどなあ
サポート外のWinXPが起動不可能になったとか聞かないし

>84
そうだとありがたいんだよね。
ただ記事で「2022年6月16日になっても、iexplore.exeは削除されないものの、アクセスしようとするとIE11は起動せずEdgeにリダイレクトされる」って書いてあったから不安なんだ

createObjectで呼び出すんじゃないの？

アプリは起動できなくされるけど、オブジェクトはさわれると予想
MS-Officeがもともとそういう構造だったし

ieが来年サポート終了するからchromeとseleniumで動かして見ようと思ったら
webdriverが若干古いのしか公開されてなくて詰んだ
頻繁に更新するchromeをどうやって制御すりゃいいんだよ…

すみません、教えてください
配列の一部の最大値を取得する方法ってないでしょうか？
例えば二次元配列で
a(1,1)=1
a(2,1)=2
a(3,1)=3
‥
a(100,1)=100
という配列があったとして、a(10,1)〜a(20,1)の間の最大値を出す方法です
for文で調べたい配列すべて調べて最大値を出す方法しか思い付かないのですが、他に方法はないでしょうか？

それはギャグで言ってるのか

Rubyなら何ちゃらかんちゃらの前置きだろ

>>89
全部の配列を一旦シートにコピーして関数つかえばいいんじゃね

>>89
死ね

>>88
Ruby には、Webdriver を自動的にダウンロードする、モジュール・gem がある。
タスクランナーみたいなもの

ブラウザの起動前に、ブラウザのバージョンを調べて、
Webdriver のバージョンが、それと一致しない場合、

それと一致するWebdriver をダウンロードしてから、処理を開始する

まともな企業のLANだとネットアクセスとかダウンロードに制限かかってそう

臀痛は5ch繋がらないω

>>95
これな
Rubyで使ってる環境はその辺のとこ甘いのかも知れないな

申請なしに何かをインストールする事も出来ないし、申請しても通らないから業務の効率化ってなるとソフトウェア開発の部署に発注するかVBAで作る以外の選択肢がない

自動更新するのは、個人のサイトとか

ちゃんとした企業の本番環境では、毎週1回テストしてから、モジュール・gemを更新する。
そもそも、ブラウザも自動更新しない

gemの更新を貯めないように。
基本は、毎週1回テストしてから更新する

これをやっていない会社は、運用しているとは言えない。
ほったらかし

そう上司にいえばやらんですむんじゃね

>>99
はー、都度テストするとはご苦労なこった
つまり大きなシステムになるとその分、
Rubyの場合は毎週テストに労力と人員割いて
金掛けて実施しないとダメってことか
かなり大きな会社じゃないとそこまで融通効かないだろうな

>>98
PowerShell便利だぞ

毎週、モジュールを更新するのは基本。
更新を貯めたら、保守・修正できなくなるので、ダメ。
こまめに・ちょくちょく更新

例えば、サイボウズ・Kintone は、
Kubernetes で毎日システムを作り直しているとか、
Netflix は毎日、わざとシステムを攻撃して、落としてテストしたりする

ちゃんと運用していない会社は、更新をほったらかしにしてる

毎週1回、OS の更新も大変だから、
サーバーレス・自分でOSを管理しない、AWS Fargate を使えと言われる。
AWSが、OSの更新をやってくれるから

だから、YouTube で有名な、雑食系エンジニア・KENTA の、
Ruby on Rails 初心者用コースに、AWS Fargate も入っている

それで皆、くろかわこうへいのサロンで、AWSを勉強する

Railsも今まで1人で、Heroku で作っていたのが、
Fargate, Terraform に変わってきてる

今の1年の未経験者は、10年以上のプロよりも、技術力が上になってる

>>104
大変だな
確かに新しいことを学ぶのは大事だけど
10年やって来た人が1年やってる人に負けるって
その人の10年は何だったのって話になるわな
俺、Rubyやらなくて正解だったわ

KENTA・くろかわこうへい、Udemy の人気講師・山浦清透などが現れて、
Ruby on Rails の教育革命が起こった

ものすごい短期間で、効率的に学べる。
それで、1年ぐらい勉強した未経験者が、10年以上のプロよりも、技術力が上になった

東大合格マンガ「ドラゴン桜」みたいなもの

今の未経験者は、Docker Compose も必須

>>89
VBAで配列にして・・・ってのが前提になっちゃってるパターンだな
その配列もRangeから取得した奴だと思うが、素直にMax関数使いましょう

効率化できるけど使うやつらが池沼で勉強した意味なかったな

効率化よりもいかにシートの内容を壊されないようにするかの工夫ばかり必要なパターンだな

自力でできることを質問した場合、解答がなくても困らんだろ

>>98
発注出来る開発部署があるなら、そっちに投げた方が楽なんじゃ？

朗報
やっぱりオブジェクトは残る

> MSHTML（Trident）エンジンに関しても、互換性維持のため
> すぐに削除されることはない。OS内部に「IE 11」由来の
> 機能は残る。「WebBrowser」コントロールを利用するアプリも
> 引き続き利用できる。

>>111
別部署とのお金のやり取りが発生するからメチャクチャ渋るぞ

>>113
そんなん会社ごとによるし俺に言われても

最初は、動いていたのですが、
そのうち、毎回6行目でエラーが出るようになってしまいました。

例えば
D5セルに入力した3桁の数字をした時に

D7に百の位、E7に十の位、F7に一の位を表示させたいのです。
入力した結果を見て、再入力することもあるので
関数⇒値貼り付けはやりたくないのです。

できれば、どなたかご教授をお願いします。

ファイルのシートは1枚のみです。
【1 OSの種類 　 】 Windows10
【2 Excelのバージョン】 office365


Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
If (Target.Row >= 5 And Target.Row <= 161) And (Target.Row Mod 4 = 1) And (Target.Column = 4) Then
r = Target.Row
Cells(r + 2, 4) = Cells(r, 4) \ 100
Cells(r + 2, 5) = Cells(r, 4) \ 10 Mod 10　←　実行時エラー1004
Cells(r + 2, 6) = Cells(r, 4) Mod 10
End If
End Sub

＞＞１１５
補足
最初、エラーが出たやつ
Cells(r + 2, 4) = Left(Cells(r, 4).Text, 1)
Cells(r + 2, 5) = Mid(Cells(r, 4).Text, 2, 1)
Cells(r + 2, 6) = Right(Cells(r, 4).Text, 1)


修正しても
Cells(r + 2, 4) = Cells(r, 4) \ 100
Cells(r + 2, 5) = Cells(r, 4) \ 10 Mod 10　←　実行時エラー1004
Cells(r + 2, 6) = Cells(r, 4) Mod 10

>>115-116
そのうちまた動くようになるさ

シートを保護したまま動かす前提で、何か色々修正したときに
E7のロックをうっかりONにしてしまったとか。

＞＞１１８

ありがとうございます。
どうやらそれらしいです。
頑張ってみます。

>>115

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n, n1, n2, n3 As Integer
If Target.AddressLocal = "$D$4" Then
If IsNumeric(Target.Value) Then
n = Target.Value
n1 = n \ 100
n2 = n \ 10 Mod 10
n3 = n Mod 10
Me.Range("D7").Value = n1
Me.Range("E7").Value = n2
Me.Range("F7").Value = n3
End If
End If
End Sub
もう見てないかもしれないけど、どうぞ。

それだとn3 だけがintegerになるんじゃね

>>120
n3以外Variantでいいの？

基本が出来てない典型

基本が出来ていなくても何となく動いてしまう
それがVBA

あの書き方でよしとするネット情報が多くておれも最初間違えてたわ

VBAで、QueryTableを使ってUTF-8のCSVを読み込ませてるんですが、
この読み込みのマクロを使った後に、そのxlsmファイルを開いたままの状態で、何か別のCSVファイルを手動で開くと
中の2バイト文字がグチャグチャに文字化けされてしまいます
xlsmを閉じてからだと何の問題もないんですが、作業してるとちょっと不便なんですが原因は何なのでしょうか？

これかな
https://www.ipentec.com/document/office-excel-open-utf-8-csv-file

>>126
後段の「何か別のCSVファイルを手動で」は、
・別のbook(.xlsx)からPowerQueryでのcsv読込み？
・それともcsvファイルをダブルクリックで直接開き？

PowerQueryでのcsv読込みなら
エンコードを一度自動認識で読み込んでも
後からステップの「ソース」の設定(歯車または詳細エディター)で
固定することも出来るけど・・・

入力の手間や長くなるのが嫌なら
Dim n%, n1%, n2%, n3%
で全部Integerになる

>>128
済みません、VBAでQueryTableを使ってUTF-8のCSVをシートに読み込んだ後、適当なShift-JISのCSVファイルをダブルクリックして直に開くと
開いたCSVの中の2バイト文字が文字化けしています
Excelで開いてるウィンドウを全部閉じてから、CSVを開き直すと文字化けしていません

マクロだけじゃない、Excel全体は基礎ができてないとすぐ壁にぶち当たる

基礎って何ですか？

>>132
私もそう思いました
基礎って何ですか？

例えばVBAの基礎と言えば
・モジュールの先頭にはOption Explisit書いて全ての型は明示的に記述すること。
・行、列を扱うときは使用範囲の最大値を考慮してIntegerでなくLong型で定義すること。
・モジュール、関数、変数の名称は一見して何を意味しているのか分かるようにつけること。
・モジュール、メソッド、関数には複数の役割を持たせて作らないこと。
・基本、ひとつの変数に複数の型のインスタンスを代入する場合、Object型を使わずにインターフェースを作成して代入すること。
・グローバル変数は使用せず、プロパティを使用すること。
・VBA上では四捨五入を求めるROUNDは銀行丸めなので必要に応じてWorksheetFunctionのROUNDを使うこと
小数点以下の計算を行う場合、DoubleやSingle型は浮動小数点数扱いでIEEE754準拠のため誤差が発生
することがあることを念頭においておくこと。

まだまだ沢山あるけど
人や会社の厳しさや緩さによって多少は変わるけど
こういった最初の内から押さえていないとマズいことだと思う。

>>130
問題が起きないように使えばいいのでは？

>>134

めんどくさいって思ったことないですか？

RowがLongなのはわかるけど、
ColumnはIntegerで足りね?

WindowsAPIのmciSendString関数を使おうとサンプルコードを見ているのですが、
Callで呼び出さずにrc=と記述されたものばかり見受けられます。
rc=の意味を調べてもなかなか回答が見つからず…これって何なのでしょうか。

>>138
return code

1つのbookにシート数44、1シートに1クエリーがあり、
「すべて更新」ボタンでやると部分的にクエリー更新に失敗することが多いため、
一覧表作ってシート名とクエリー名を変数にして
For To Next で順番にクエリーを更新していくマクロを組んだ。
それまではちゃんと機能していたものの、シートの改造・追加・並び替えをしたら、

　実行時エラー '-2147319767 (80028029)':
　オートメーション エラーです。
　無効な前方参照か、コンパイルされていない種類への参照です。

と、エラーが出て途中で止まったでござる。
検索すると「メモリーの使いすぎ？」みたいな話はヒットするも、よくわからず。

プロジェクトエクスプローラー眺めてて、
「シートの順番入れ替えたりしたので、シート名の順番がぐちゃぐちゃになってるな・・・」
と、各シートのプロパティで、
sheet01 (○○○)、sheet02 (□□□)、sheet03 (△△△)・・・
と直してみたら、今度はエラーも出ず、1発で44クエリーが最後までマクロが実行されてもうた。

Dim tblQ As ListObject ' 対象となるクエリーの変数宣言
Dim ws As String ' sheet名の文字列変数宣言
Dim q As String ' クエリー名の文字列変数宣言
(中略)
　Set tblQ = ThisWorkbook.Worksheets(ws).ListObjects(q) ←ここで止まった
　tblQ.QueryTable.Refresh BackgroundQuery:=False

としてたのだけど、sheet名がマクロの実行順に並んでいないと、
VBAはwsやqの検索に失敗することがある (特にシート数が多い場合)
という理解でいいのかな？

>>138
その程度の馬鹿頭でWindows APIなんか使うなよ

>>139
ご回答ありがとうございます！
rcという変数に関数を格納する、というのがいまいち理解できません。
Callで関数を呼び出しても問題ないはずですよね？

>>135
問題が起きにくくするようにのための決めごとだよ
もっとも、やってる仕事場のプログラマーが歩んできた経験則に大きく左右されたりもするから
そこは仕事場ごとのコーディング規約に基づいて組めばいいんじゃないかな。
それはプログラマーのお仕事としての基本になるかな。

>>136
面倒くさいよ。でも他の言語とは比較にならないくらい楽な方だよ。

>>137
またいつシートの行や列が増えないとも限らないじゃん。とある銀行系のところは行や列が増える以前からそんな想定をしてて最初からLong型を使うことがコーディング規約に記載されてたよ。
それにどうせInteger型はLong型を半分マスクしたものだからLong使って処理が遅くなったり容量余計食ったりすることないしね。

>>142

乱暴だけどｗ　Functionと一緒だよ。

いつものruby馬鹿の自演

>>144
ありがとうございます！

いつものあいつ

>>140
シート順を駄目な順に戻して再現するならそうかも

Ruby信者はあわしろいくやという人の手先らしい
こんなスレまでわざわざ荒らしに来るちょっと頭が残念な人

>>134
> こういった最初の内から押さえていないとマズいことだと思う。
うんうん、ドヤるなら綴りぐらいはまともに書けないとマズいわなw

> ・モジュールの先頭にはOption Explisit

まーたあわしろいくやか

基礎ってなんですか？って質問している時点で恐ろしいわ。。。
基本を知らずにExcelを操作している社員がいる職場のシートは難解なんだろうなきっと。。。

>マクロだけじゃない、Excel全体は基礎ができてないとすぐ壁にぶち当たる

と言われたらまず基礎がどのぐらいか定義してもらわないと
何言ってるか分からないからだ

グローバル変数は許せよ

その変数の問題だと思うんですが、subの中からFunctionをコールして、String型変数を引数で渡しても
Functionの中でその変数が空っぽになります。どうして文字列が渡せないんでしょうか
Function aaa(ByVal hoge As String) As Long を Call aaa(hoge) と書くとaaa内でhogeが空っぽです
Public hoge とかしてみても駄目でした

それ自分を呼び出してるだけじゃね

また

>>155
まずはモジュールの先頭にOption Explisitって書いてみ

値渡しするならCall aaa((hoge))が望ましい
っていうか返り値があるFunctionってCallで呼び出す？返り値と同じ型の変数に代入とか演算に使ったりしない？

VBAだけではないと思うんだけど、コードって使い回すじゃん？切った貼ったの繰り返しで完成後汚えなぁと思うことない？
あと、コードを保管方法ってなんかないかな？使ったエクセル開いてコピーとかメモ帳とかいろいろやったけど不便でならない。

FunctionとSubの違いもよく分かってなかったんですが、Functionの返り値を変数で受けようとした所
そもそも渡したい文字列がFunctionに渡せなくて困ってました
単に、自作の関数を呼び出す時に引数を渡してやればいいだろと思ってたんですが、それが出来ないので
VBAはその辺が厳密なんですかね……？

例えばFunctionで返り値をString型が欲しい場合求める場合
Public Function aaa(ByVal hoge)As String
ってString型を指定してやってFunction内でaaa = 【返したい文字列】ってやる必要があるのは分かる？

Functionを呼ぶ側は
bbb = aaa((hoge))
ってやるんよ
参照渡し(ByRef)の場合は変数をダイレクトに書いて良いけど、値渡し(ByVal)の場合は変数を括弧でくくってやらんと上手く渡せない場合がある。

>>160
コピーして切った貼ったして使うことを使い回しとは言わない
どっちにしろ使い回したい部分をモジュールや関数単位に纏めてそれを呼び出せ。
それが使い回しというものだ。

場合って何よ　具体的に書きなよ

>>165
参照渡しと値渡しを同時に行う際、値渡しの変数に括弧をつけておらず、尚且つ変数のみである場合、参照渡しとして認識されるが呼び先では値渡し指定なので不一致であるとエラーを吐いて停止する(但し変数に対して演算を行っていた場合は値渡しとして認識される)から値渡しする時は括弧つける癖をつけろ。その方が可読性もあがる。
って言えば満足か？

>>164
言うか言わないかは個人の認識の問題

>>166
うん？
それ何か違う気がする
演算した後値渡しでエラーになると言うことは、そもそも渡す引数の呼び出す側の値が呼び出される関数の引数の型で許容されるものでは無かったってことじゃないの？

例えば呼ぶ側でVariant型を定義した変数に“1”という文字列を入れていて、それを受ける呼び出される側の引数が
Integer型に宣言されていた場合は型違いでエラーになるけど、呼び出し前にその変数に対して+1したものを代入すればその時点で暗黙の変化によりVariantの
内部型はIntegerになるから型が合ってエラーにはならない。という状況で、
括弧の話とはあまり関係ない気がするんだけど認識違う？

暗黙の変化ってなんだよ暗黙の変換ね

Public Sub aaa()

Dim aa As String, bb As String, cc As Long

bb = ″b″
cc = 2
aa = bbb(bb, cc)

End Sub

Public Function bbb(ByRef b As String, ByVal c As Long)As String

(中略)

End Sub

ってやるとFunction入る前にエラーで弾かれて
aa = bbb(bb, (cc))ってやったりaa = bbb(bb, cc + 1)ってやったりすると通るんだがおま環だった？

なにエラー？

>>148
やってみた。
やっぱエラーで止まった。

sheet番号がぐちゃぐちゃでもちゃんと動作するような、
クエリーを変数にした記述の仕方があるかもしれないけど、
少なくとも >>140 のやり方では、どうもオートメーションエラーになるみたい。

>>170
コピーして実行してみたけど
まず“b”のダブルクォーテーションが全角なのと、Functionを閉じているところがEnd Subになっている。
コンパイルした時点でエラーで弾かれたよ。

そこを修正したらエラーが出なくなった。

>>170
ファイル壊れてんじゃね

関数やメソッドに括弧が必要なのは確か
・Functionで戻り値を受ける場合
・Subで頭にCallを付けない場合
じゃなかったっけ？
後、括弧で括らないと順序関係なく
個別に引数を設定することが
出来るんじゃなかったっけか？

まぁ自分としては何であれ括弧を付けて
Subの場合は頭にCall付けて関数やメソッドが
呼ばれていることを明示する
必要があると思うけど。

あまり引数が多い関数は引数そのものを
抱えるエンティティクラスを作って
そのインスタンスを引数で渡してやれば
いい気がするしその方が可読性高いよね。

>>162-163
ありがとうございます、値渡しがどうしても上手く行かなかったので試してみます

大きな声で言えないけど、おれoption explicit付けたこと無いしグローバルじゃない変数は宣言しないで使ってる。グローバルな変数大好き

え？option explicit付けない人見たことない。。。

だって俺お前と会ったことねーもん

まーたあわしろいくやの手下のRuby信者か

ゆうてそういうことしないよって人はプログラマとかじゃないんやろ
プログラマやってたら不安になると思うし

>>160
VBAを使わない
pythonで外からexcelを操作する
pythonのコードはgithubで管理

Ruby　に option explicit は無いからな

>>178
普通にいるよ
流石にソフトウェア開発者にはいないと思うけどVBAは事務屋さんも作ったりするからそう言う人はそもそもOption Explicit自体を知らなかったりする
知ってて使わない>>177みたいのは単なるアホ

>>182
Pythonなんか使う意味が分からん

俺みたいな事務屋さんは知ってても必要ないんだってば。事務屋さんだから>>184みたいに大きな声は出さないけど
でも流石にRubyの人と同一視するのはやめて。けっこう傷付くし悲しい

知らないで使わないのはただの無知
知ってて使わないのは悪質なバカ

VBAって宣言せずに使ったらローカルになるんだっけ？
プロと違って適当にかくから強制ひっすだわ
こういうところに書くのは省略しまくるけどな

>>160
> あと、コードを保管方法ってなんかないかな？使ったエクセル開いてコピーとかメモ帳とかいろいろやったけど不便でならない。
普通にエクスポートすればいいだけじゃねーの？

>>73 すごい亀レスだが、dispatchEventでなんとかなったわ でもいつできなくなるかドキドキ ieは終わりの圧力に屈しそう

>>186
存在を知ってるのと正しい使い方を知ってるのは別
入力ミスが見つけやすくなるという大きなメリットがあるんだから、使わないのは無知と言われても仕方がない

普通さ、最初に覚えるだろoption explicitは？
それらを参考書とかで勉強してこなかった人とかいるのかなと？
まあ、どう運用しようがその人の勝手だろうけどさ。

option explicitは知ってるが
いちいち書かんし設定もせん
宣言は常にやる、それだけ

>>193
いちいち書く？
まあその程度のオツムならたいしたコードは書いてないだろうから使わなくてもいいかもねw

>>193
俺も宣言は他言語同様やるがOptionは気にしないな
下手するとそれがあるせいで変な場所で宣言してる例をよく見る

Task オブジェクトってなんでWordだけなん？

>>194
自動構文チェックONにしているんだ。
別にどっちがいいって訳じゃないけど俺はOFF派。
コード書いてる最中にどこかのコードコピーして持って来たいときカーソル当てると
エラーのメッセージボックスが上がって元の位置に戻されるのが鬱陶しいのと
他の開発で使ってるVisual Studioが元々そんな感じだからそっちに合わせてる。

ただそうするとエラー部分が赤くなるだけでどんなエラーかは表示しないから一長一短。
OFFはパッと見でどんなエラーか分かる人向けでそれ以外の人にはお勧め出来ない。

>>195
Option Explicitの設定してて変な場所で宣言って聞いたことないな。
そんな具合になったコード晒せる？

>>195
> 下手するとそれがあるせいで変な場所で宣言してる例をよく見る
意味わからん、例示してくれ

>>197
> 自動構文チェックONにしているんだ。
まあこれは人によるかな
あんたも書いてるようにエラーになった時にいちいちダイアログが表示されて鬱陶しいとは俺も思う

変な場所って、プロシージャの真ん中あたりに宣言がポッと出てくるやつか？
いちいち上に戻って書き足すのがクソダルい気持ちは分かる

>>201
見たことないなぁ
どんな操作をするとそうなるの？
そもそも最初に設定しておけば必ずモジュール作ったときに一番上に出てくると思うけど

違う違う、そうじゃなくて、初心者がコード書く時にエラー吐かれる度にその場で直した結果として変なところで宣言してるやつってこと

>>203
Option Explicitとは関係ない話？
だったら本題と内容がズレるな。

＞違う違う、そうじゃなくて、初心者がコード書く時にエラー吐かれる度にその場で直した結果として変なところで宣言してるやつってこと

これは初心者というか.Net系やJavaとかやってる人に書かせてもそう書くときがある
関数内で定義したVBAのDimとかのスコープが関数単位で効くものでなくて
If とか For とかのブロック単位で効くものと勘違いしているらしい。

>>203
使う直前に宣言するって言うのは別に変な流儀じゃないけどな
むしろ先頭で宣言しろと言うのは老害の可能性もあるし

>>205
それは可読性の問題
あくまで俺だったらだけど同一スコープの先頭に書くな。後で変数定義して既に使われてる変数書いてエラーになって「あ」ってなるの嫌だし
一々コードから何の型で宣言しているのか探しにいくのも面倒くさい。

>>204
いやいやズレてないよ、>>195がそういう話をしてるんじゃないかって話だったでしょ
ありがとう勉強になる…そうか俺老害側か…

>>207
よく嫁
＞俺も宣言は他言語同様やるがOptionは気にしないな
＞下手するとそれがあるせいで変な場所で宣言してる例をよく見る

Optionがあるせいで変な場所に宣言してる例をよく見るって書いてあるだろ？
そっちの話はOptionの話と関係ある？

後、宣言する場所に関しては老害とかないから安心していいぞ。何故ならもっと新しい言語のVB.NetやC#でも効くスコープの先頭に書くのが一般的だから。

>>208 >>203
option付けたら変数宣言しないとエラー出すじゃないですか

>>209
Optionつけようがつけまいが
変数宣言するのは基本だと思うけど？
してないの？

>>201
まさにそれ

>>206
別にお前さんに強要するつもりはないから自分の好きな様に書いてくれ
ただIDEの使い方位は覚えておいた方がいいんじゃないかな
> 一々コードから何の型で宣言しているのか探しにいくのも面倒くさい。

>>210
俺とお前と>>195がしてても、それが基本でも、>>195が良く見るというコードを書く人たちが基本が身についているとは限らないじゃない
だから>>203でわざわざ初心者って言及したんですってば

>>212
Visual Studio辺りであればカーソル合わせると
定義した型が表示されるから分かるが
VBAの場合は一々「型の定義」でそこまで
飛ばないといけないし、何度か最寄りの型まで
調べると元の位置に戻ってくるのも
面倒だと思ってるんだけど認識違う？
違うんならそのIDEの使い方とやらを
提示して頂けると有り難いんだけどな

変数の宣言って頭でまとめて宣言するより使う場所で宣言するのが今の主流だった気がするけどウチの会社だけなんかな

>>213
よく分からないな
初心者だから変数定義をしていないといいつつ
変数定義しているところがポッと出てくるという。
変数定義してたりしてなかったりというのであれば
もうそういう次元の話ではなくなってくる。

>>194
だから「設定」と書いてあるだろアホ

>>215
状況がよく分からないけど
「使う場所で宣言する」というのは
スコープ毎に纏めていないと言うことだろうか

少なくとも俺が今までやった言語では
そんな流行りは見たことないなぁ
というか見辛いもの

>>217
おじいちゃん、もうそのレベルの低い話は終わってるからw

>>211
ごめん

>>216
してないとは言ってないよ。option付けたら必ずさせられるじゃん。してたりしてなかったりにはなり得ない
初心者だから変数定義を最初に必ずするクセがついていないんじゃないかって話です

vba不慣れな人が宣言してない変数を使おうとして、実行時にoptionどおりエラーを言い渡され、慌ててエラー箇所の直前に変数宣言をぶち込む。その結果コードの真ん中に変数宣言がポッと出てくるやつになるんじゃないかってこと

>>220
言いたいことはやっと伝わった

では話を戻そう。そのコードを見てどう思った？
変数宣言強制設定して変数宣言書き込まないとエラーが出るようにするのが悪いと思った？
そんな奴がポッとそんなところに変数宣言を書き込んだ奴が悪いと思った？

前者というのであればここで話はもう終わり。
恐らくこれ以上話してもお互い得られるものは何もないと思う。

後者と言うのであれば、変数宣言強制した際に少なくとも変数が宣言されていないことは発覚する。これだけで恩恵があることは理解出来るかな？
その辺にポッと書いてしまったことはそれ自体が問題であり、その人に促せばいいんじゃないかと思うけど？

>>219
自分の間違いが顕わになって、反論できないバカ

くだらないタイプミスで時間を無駄にしたことはありませんか？

設定のことを含めた話ということすら読み取れてなかった7vXXが一番レベル低かったな

>>223
ない・・・と言いたいところだけどどうやっても0にはならんわなw

いつも思うのがOption ExplicitがあるんだからOption Strictも用意しといてくれればいいのにと。
変換に際して暗黙の変換をさせずにどれも明示的な変換を漏らさずさせられるようになれば
テストする際も安心して走らせられるのにって思う。
もっとも、人によっては面倒くさいと思う人が出るんだろうなぁ・・・

>>218
C#でvar使うなら型の確定する現地じゃないとだめじゃね？

>>221
確認だけど、俺はそのコード見てないし、見てない以上何とも思ってないぞ。俺は>195氏じゃない
>>201>>203は>195の言うコードを予想したものだということを踏まえて、それでも話を続ける？

>>226
そもそも型定義出来る言語であまりvarは使わない。まぁ厳密な書き方しない人は使うんだろうけど。
それにそれもスコープが効いてる頭でやる。
むしろC#のvarはVBAのVariantと違う。
別の内部型を使うことによって違う扱いをするようなことは出来ない。
最初に設定された値により使用する型が確定されるため、一度設定したらその型として定義される。
例外があるとすれば無名型とかレイトバインディングにより型が確定するもの。

>>227
では「見た」と言うのを「予測した」というのに置き換えて考えればいい。
そう言ったコードをどう判断するか、と言うことにかわりはない。

>>228
だからC#では途中で宣言するvarが流行ってますよと

VBAの場合、変数は先頭で宣言するのが望ましいとされるけど強制ではない
そして、スコープ内ならどこに書いても効力は同じ

だから使用直前に書くコーディングルールでも動作に支障はない
別人が保守する可能性がある時に、ルールをどう伝えるかが問題になるだけ
コードの先頭にコメントで書いてもいい

参考、「通常、Dim ステートメントをプロシージャの最初に配置します。」
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/dim-statement

いちいち先頭に戻って確認するのが面倒と言ってる人がいるけど、ウィンドウが分割できることを知らないのか
あるいはよっぽど狭いモニターでやってるのか
そもそも設計がきちんとできてれば、型も自然と決まってくるんだから確認する必要なんかないだろう
どっちにしろ自己責任で片付く問題でしかない

>>230
流行ってない。
C#やVB.Netの場合はそもそも変数の定義と一緒に値を設定出来るからスコープの頭で定義してvarの場合一緒に型を決める頭を設定する。
そしてスコープも関数単位ではなくIfやCase、For文等の細かいブロックに分かれるからそれが最小単位だ。
もしC#で他の誰かが組んだコードが確認出来るならしてみればいい。

>>214
そんなに型知りたいときある？
あとそれ先頭で宣言しても似たようなもんじゃね？

>>222
終わった話に粘着する爺乙w

>>229
おーけー、じゃあ戻るというか新しい会話だね。

別にどっちも悪くないんじゃない？　少なくともoption付けて悪いってことはないでしょ
可読性の問題については頭にまとめて書くのが当然だとは思ってたし、途中にあったら変だと感じるけど、悪いかは分からん。今日は勉強させて貰った

>>232
ウィンドウ分割なんて一つしか出来ない。
ソースを確認するのは有効かも知れないが、そんなんで一々散り散りになった変数の型確認などしていたら大変な手間だ。まだ定義の確認で飛ばした方がマシ

設計どうのと言っているが、そんなコードや型までこと細かく書くことはまずない。
それは設計書ではなくコードそのものをただ日本語の資料におとしたというだけ。コードを見ればいいのだから無駄な作業だ。

>>234
何か沢山の人とやり取りしてると話がごっちゃになって・・・すまんな。
俺は使うスコープの先頭に書く派だけど、そっちは何の先頭と言ってるのだろうか。
話はそれによりけりかな。

>>231
最初に言った
これは可読性の問題だと。
動作に支障がないからと言って関数単位のスコープであればそこだけ確認すれば良いものを
わざわざ大風呂敷広げてそのモジュール単位にする理由が分からない。

>>236
とりあえずそこまででも理解して頂ければこちらとしても嬉しいし有り難い。

>>238
>>201からの流れだからSub/Functionの先頭でしょ

>>241
なるほど、ありがとう。
それなら基本俺も最初からそう言ってるしそれでいいと思う。
モジュール単位で使う必要のあるものはモジュールの頭で書けばいいしね。

>>240
なんかほんと、ごめん。色々ありがとう

>>243
いえいえ、楽しかったよ

ちゃんと教科書通りにやれ！
と怒鳴られたらどうする？

後、varで思い出したけど、これは余談になるんだけど、以前ExcelでPythonが使えるようになるかも知れないって話があって、結局のところ塩漬けになってしまったから残念ではあるけれど
つい五月の終わり辺りにExcel webが解放されたね。
使用言語はJavascript、Webのものだから今後HTML、CSS、クライアントやWebサーバー、IISや場合によってはJqueryやDBサーバーの知識が必要になる可能性がある。
いや、お客さんやエンドユーザーさんが「Webで確認したいなぁ」とか言い出しそうな人がいたら要注意だ。
まだどのような影響があるかは分からないけど、場合によってはおじいちゃんでその辺の理解がないと淘汰される可能性があるかも、とだけ言っておこう。

https://www.google.co.jp/amp/s/forest.watch.impress.co.jp/docs/news/1328/019/amp.index.html

>>140

wsとqをどういう風に設定しているのか確認しました？

google apps scriptみたいなもんか

>>248
まさにそんな感じだろうとは思ってる。
ただ、IEには対応していないと書いてあるので
Edgeでは動くだろうけどchromeだとどうか・・・
すまん、ウチに入れてるOfficeは365だけど企業用ではないから確認出来んのよ。

まぁVBAは今までの資産があるし、今こんな話をするのは早すぎかも知れないけど、この機能を使おうとした場合、大きなお金持ちの会社になると
「じゃーボタン押したらDBの内容表示させようかー」とか軽くお客さんが言い出す可能性もある。
SQLはそのまま使えるけど、ビジネスロジックの部分はどうしようか、とか
「じゃー他のシステムと統合しようかー」とかになったら、上手くそのシステム作成の話に乗れればいいけど、そうでなければお払い箱になる可能性もある。
WebのビジネスロジックにVBAは使えないから他の言語も勉強しなければならない。

これは他のWebの言語やってるところも他人事じゃなくて「じゃー画面はEDGEでEXCELで表示してねー、ダウンロードはいやよー、編集して反映させたいからー」
なんて言われた日にゃUIをこれにしなくてはいけない。

今すぐと言うわけではないし、そうならないことも考えられるけど、ひょっとするとこれからEXCELというものは今までのものと
そういう方向性のものを含めてEXCELと呼ばれることになるかも知れないということ。

まぁ今は聞き流して貰って大丈夫だよ。
ただ、そう言う話があるということだけ心の片隅に置いといて貰えれば。

5分でかけるスクリプトに仕様書やらテストやら乗っけて
おいくら万円で売りつけるサービス業者のピンチですか？

>>251
ピンチになるかどうかはまだ分からないけどそんな可能性もあると言うこと
それにそう時世が動いたとしてピンチになるかはその人次第。

VBAやってる人は、不安なら他の本格的なプログラミング言語に手を出す前に今時のWebベースのノーコード開発を習得したほうがいいと思うよ
VBAできる程度の頭があるなら難しくはないだろうし、ヘタにスクラッチで作るより遥かにまともなものができる

恐らくこれに対応しろと言われて一番困るのはMicrosoftのOS使ってないところ。
lMicrosoftであれば.Net freamWorkでそのようなライブラリをすぐ揃えてくれるだろうけど
そうでなければオープンソースのものは誰かが作ってくれるのを待つか自分でライブラリを作るしかない。

そしてMicrosoftはそれが内部でどう作られているのか教えてくれる気は更々ない。誰かの解析待ち。

DBはアズールレーンだろ
windowsはどうでもいいよ

>>255
アズールレーンがどんなDBか分からなかったから
wikiで調べたらゲームしか出てこないな
何だこれ
https://ja.m.wikipedia.org/wiki/アズールレーン

DBはOracleでもSQLSERVERでも構わないけど
問題はUI部分をどう使って行くかよ。
これを使うライブラリがないとキツいかも知れない。
まぁOSがWindowsでなければgoogle spreadsheetで代用すればいいんじゃないか？
要件を満たすことが出来ればだけど。

Excel使うにしてもO365のWeb版Excelでいいでしょ
Windows要らん

>>257
画面制御行わないのであればね。
企業用のofficeライセンスが無いとJavaScriptが使えん

今MacのVBA案件渡されて泣きそうなんだが
Windowsのが100倍良いわ

>>259
これな

365ならMacでフルで使えんじゃないのか？

>>261
ブラウザ版は出来損ないだ
食べられないよ

ieの操作なんだけど複数タブ開いてて、操作するタブ指定するにはどうすればいい？1つしかWindow開いてない状態だと問題ないものが、2つタブを開いたら、elementが見つかりませんてなる。

>>263
なぜこのスレで聞くの？
タブは別のwindowだよ

>>263
んー、適当で申し訳ないけど
VBAではあんまりそういうことやらないんだけど、Javascriptで同じ名前の項目を拾おうとするとそれは項目のリストとか配列とかそんな感じのもので拾えるから
多分、その拾ったエレメントはそんな感じになってる気がする。(0)とか(1)とかつけてあげれば何か拾える気がするよ。違うかもしんないけど。
適当でごめんね。

【Ruby】window_handles・・・複数のウインドウハンドルを取得する
https://www.seleniumqref.com/api/ruby/window_get/Ruby_window_handles.html

Ruby, Selenium Webdriver では、

配列のdriver.window_handles を使う

# 全てのウィンドウ(タブ)ハンドルを取得
allHandles = driver.window_handles

driver.switch_to.window( allHandles[0] ) # そのタブへ移る
driver.get( ここにURL ) # そのURLを開く

【Ruby】window_handles・・・複数のウインドウハンドルを取得する
https://www.seleniumqref.com/api/ruby/window_get/Ruby_window_handles.html

Ruby, Selenium Webdriver では、

配列のdriver.window_handles を使う

# 全てのウィンドウ(タブ)ハンドルを取得
allHandles = driver.window_handles

driver.switch_to.window( allHandles[0] ) # そのタブへ移る
driver.get( ここにURL ) # そのURLを開く

PC Windows2021.6.8 Tue 17:00
最強のExcel使い決定戦、開幕―財務モデリングの腕を競うe-Sportsトーナメントが本日20時放送予定
マイクロソフトが贈る最新e-Sportsタイトルは「Excel」だ！
https://www.gamespark.jp/article/2021/06/08/109325.html

バカスw
田中さんは出ないんだ？

ぶいびーえー以前にウチの取締役やってた方が60代半ばのジジイが関数始めて興味が出たらしい。
それはいいんだけどいちいち自慢してくるのがうぜー。

方なんかいらねーよ、クソジジイだよ

…突っ込んでほしいのかな。

😅

option explicit付けない選択肢もアリだと思うけどな。必要あれば宣言するだけだし
forとかで宣言するゴミ変数の宣言が軒並み排除されるのは割りと可読性良くなる
それに型の自動判断がそこそこ優秀な部類なのはVBAの特権

>>267
望んでた回答と違うし、自力で解決できたけど。Seleniumて簡単そうやな。食わず嫌いせずにやってみようかな

SeleniumはVBAからでも使える

底辺で上から許可とれないのでSeleniumとかVBA本体に標準装備してください

>>65ですが、社内ネットワーク上の共有フォルダに入れているのが関係してそうです。
ファイルを開くたびに「編集を有効にする〜」が出るので、それがThisWorkbook.saveと相性悪いような気がします。

vba初心者すぎて躓いています。以下についてどなたか作成お願いできないでしょうか。

任意のフォルダを指定
↓
その中でファイル名に特定の文字列（ex.請求書）を含むExcelのシート全てを一括保護（パスワードあり）
↓
保存して閉じる

ネットで調べながら作っているのですが、上手く動かず諦めかけています。
よろしくお願いいたします。

>>279
質問スレだから聞くのはいいけど丸投げで作ってくれと言うのはこのスレに限らずマナー違反。
大体「死ね」と言われるか「いくらで？」と高額吹っかけられることになる。

板自体の初心者だろうからいきなり言われて自殺されても困るし先に一応言っとくね。

>>279
死ね

>>279
> ネットで調べながら作っている
ならそのコードを晒せ

解説サイトを見ると、たまにグローバルのApplicationから呼び出すのはなく
New Applicationでインスタンス化して使用しているコードがあります。
これらの違いは何なのでしょうか。

>>283
ふーん、出来るんだ。
試してないけどそのままの意味じゃないかな？
今のじゃなくて新しいEXCELのアプリケーションを開いてそっちを操作するってことだと思うけど。

試してみた？

>>279
ファイルシステムオブジェクトでFilesを取得してForEachでFileをひとつずつ処理する

>>279
動きがランサムウェアそのものだなｗ

>>279
丁寧に教える。
初心者なら一気に作ろうとしない。

シートを保護するスクリプトをつくる。
フォルダ内のファイル名をログとかに出すスクリプトを作る
文字列から特定の文字列があったら、メッセージボックス出すスクリプトをつくる
保存するスクリプトを作る

ここまで作れば、どの様にがっちゃんこすればいいかわかるはず

Ruby では、wild card を使って、
例えば「*メモ*」で、「メモ」を含むファイル名

# . で始まる、隠し directory, file を除く
glob_pattern = "C:/Users/Owner/Documents/Ruby/*メモ*"

results = Dir.glob( glob_pattern )
.select { |full_path| File.file?( full_path ) } # ファイルのみ

puts results

出力
C:/Users/Owner/Documents/Ruby/Rails インストールメモ.txt
C:/Users/Owner/Documents/Ruby/コマンドのメモ.txt

いつもあいつ＝ruby馬鹿

>>284
試してみても普通に新しいエクセルが起動するだけですね
ただしウインドウはありません

ブックを作ってVisibleプロパティをTrueにしても表示されませんが、
一度FalseにしてからTrueにするとウインドウが表示されるというバグみたいな挙動があります

話を戻します
最近見たnew application使用例は、コントロールのイベントを無効化するのに
新しいApplicationインスタンスのEnableEventsをFalseにしていました
確かにそうしないとリッスンされるのですが何故何でしょうか

二ノ国では日本の法律は通用しないニダ

メリケンのゲームも連邦裁判所がどうたら普通に書いてなかったか
しらんぷりしときゃええがな

>>288
何かそれだとシート全てに保護を掛けるに至れてないな。
・Excelでどうやって使うのか
・細やかなセルやシートの操作はRubyからどうやって指定する？

この辺が満たせないと役に立たないからただのオナニーだね。

>>270
いるんだよな大抵ひとりはエクセルでマウントジジイ
マウントしてくるヤツの心理がよくわからん

ExcelでマウントとれないからってRubyだと・・・とか言ってくる奴もな

つか爺さん世代はパソコン自体バリバリ扱える人とまるっきしダメな人の格差が激しい印象だわ

それ若い世代も使えん奴はひどい

若い世代は今スマホしか使った事がなくてPCの使い方分からんって子もかなりいるぞ

パスワード付きのファイル(複数)を一つのファイルをまとめようとして
�@まとめ.cells(i.3) = パス付き.cells(i.2)
�Adicitionaryを使いまとめファイルに統合
両方のやり方を試して�@は出来て�Aが出来なかったんだけど、
パスを無視して�Aのやり方でやる方法ってないかな
一応、�AでUserInterfaceOnly は使ってみたけどエラーが出ちゃって出来なかった

パス = path
パスワード = password

若いコは学校でPC使って授業受けてるイメージあるんだけどなぁ。。。
単にエクセルやワードに興味無いだけか

VBAだけでデータをWebから取得、加工、メール配信を自動化するのはどうかな？他のスクリプト言語とかも組みあわしたほうがいい？

全員が完璧に暗記してたら偏差値や学歴で格差がつくはずないんだし、学校で習ったことの一部しか覚えてない方が普通ってこと

普通の公立だけど小中学校でPCの授業あったよ
学校内サイトとか社会科新聞とか書かされた

高校は大学進学だったから受験に意味のないPCなんて扱わなかったが、
大学はあらゆる申請からレポート提出まで全部PC（持ってない人は購入必須）だった
授業申請はスマホで出来なくはないだろうが、普通に使いづらい

年齢関係ないんじゃね

うん、年齢というかもう力尽きて新しいこと覚えようとしない人はダメだろうね
若い人でも年寄りでもね

>>306
じゃあ私は駄目な人ですね‥‥

うん

数学が理解できる人と苦手な人では、生まれつき脳の構造が違ってることが判明してる
つまり才能やセンスがないやつは、どんなにがんばっても無理なんだよ
もうちょっと脳科学が進めば、無駄な勉強はやらずに得意分野を思い切り伸ばす方針に変わるかもしれない

>>309
そういう考え方もあるかもしれないが、苦手を努力によって克服する人もいると思う

>>309
ソースくれ。昔から不思議な問題だった。

つまりアレかい？理系はExcel余裕でマスターとかそんな話になるのかい？
体育会系の自分はExcel無理って話ね

yes

>>311
たとえばこことか
https://gendai.ismedia.jp/articles/-/53474

>>312
一人の人間が持てる才能は1つじゃないから、数学とスポーツは両立可能

「努力する才能」ってのもあって、これを持ってる人は持ってない人より、短時間で苦手を克服できてしまったりする

努力によって脳の構造を変えるのか？
そういうの盲目的に信じる人ってだまされやすい脳の構造なんじゃね

アインシュタインの脳には、
自分の研究分野用の房が出来て、そこが発達していた

暗記脳は肉料理の量で決まるから、肉を買えない貧乏人は不利

ドラゴン桜の英語教師・竹岡広信は、京大英語を役に立たないトリビアを問う問題と批判していた。
漢字で言えば、寿司屋の難しい魚偏の漢字を読めたら、合格するみたいな話w

日本の英語の教授などは、英語できない香具師ばかり。
赤本の英語で勉強するなって言ってる。無茶苦茶だから

逆に英検とかは、何百人のネイティブで監修してるから、筋が良い

>>302
Ruby, Selenium Webdriver とか、AWS Lambda とか

>>315
素質があるかないか、ゼロかイチじゃなくて能力にも幅がある
高い才能がある人は短時間で結果を出せる
才能がなくても努力すればある程度のところまでは行けるけど、能率悪くて時間がもったいないよねって話

努力・経験で、脳の構造も変わる。
それどころか遺伝子も変わるので、努力・経験したことが子孫に遺伝する

例えば韓国人は、何千年も中国から攻め続けられた事で、
苦痛が焼き付いたような顔付きになった。

性格も火病で、すぐ発狂するようになった

いつ攻め込まれるか分からないので、
身を守るために、即座に発狂して闘うようになってる

ID:d/vYrCOI0

脳に異常がある人

VBAに外部アプリ操作させて入力を自動にして楽してるから思うんだけど
VBAなしじゃエクセルって何もできないに等しいね
数字出力するだけでしょ

関数のことを数字出力してるだけってんなら他にExcelでできることはドキュメントソフトか画像ペタペタくらいだわな

あと少し数式増やして複雑にすると使い物にならないくらい遅くなるし
vbaだけなら20万行あってもスイスイ進む神ソフトになる

でもよ、中には習ってないのに最初からバリバリExcelできるヤツいるけどそんなの稀なタイプの人間かい？

VLOOKUP覚えると世界が変わるぞ
表計算ソフトから汎用データベースに

>>312
心配すんな
このスレに来ている時点で
そんな頭のいい奴も悪い奴もいないだろう

VLOOKUPで汎用データベースだって
このスレらしい馬鹿だな

データベースには違いないだろ

検索することだけできれば｢汎用｣データベースなのか？
恥の上塗り来たな

いやそこらへんはよく知らんけど…

いやぐぐったらやっぱり汎用であってね？
色々なことに使えりゃ汎用だろ？

ついでに最近VBAでSQLが使えることが発覚した
性能はお察しだが
お手軽データの突合編集にはこれ以上のものはないね

色濡れる、オプジェクト使える、コメント入れられる、表示形式変えられる、グラフ作れる
データベースにしてはやれることが多くて取っ付きやすいよね

言われてみたらまあ

いやでもここＶＢＡスレなんだからもうちょっとVBA持ち上げてくれよ
控えめに言って神だろVBA
他のプログラムよりダンチで簡単らしいし大抵のパソコンに入ってるから
オンライン使用禁止、外部ソフト禁止のパソコンでも使えるし

素人でも扱える、どこでも使えるプログラミングソフトを作ってくれたマイクロソフトには感謝しかない

開発環境が貧弱すぎます

変数のスコープ狭いモード作ってください。コピペがしづらいです
Option Explicit つけてるときぐらい宣言してない変数書いた時点で警告してください
インテリセンスもひどいです。いくら実際の型がわかんないとはいえ、時代が経ってるんだからＥｄｉt時にもっと推論するとかできないんですか！？

よく分からんけど
俺みたいな素人には十分なのさ
複雑になったら分からなくなるだろ

常にJavaやC＃の型で守られた
なにもかもほとんど機械がやってくれる世界のお手軽さを知った者としては
１行書くのもドロ沼をすすんでいるようだ

えっそんなにクソなの？これ

いや軽くショックなんだが

>>332
それはデータベースの機能じゃないでしょ

おれも10年前だったら>>334みたいなこと言ってたかもしれんが、
今なら同じ環境でもVBAより先に
Excel上の処理ならPowerQuery、無関係な処理ならPowerShellを勧めるかな

PowerShellはWindowsでしか動かないからやだ

>>342
何年前の認識だよ

PowerQueryは便利だから
日本語の本がもっと出る程度に流行ってほしい

わけのわからんプラグインは禁止だ！

>>340
俺は338じゃないけどVBAは苦行だよ
業務フロー設計するときにはVBAはどうしてもどうしても必要なときだけ、使用範囲も最小限になるように設計する

>>338
EXCEL操作するとき外部からいじってんの？
それやったことあるならJavaやC#ではインテリセンスとか比較にならないくらい面倒な問題にカチ当たると思うけどそのことは黙ってんの？

両方あわさると最強に見える

>>347
なんでExcel操作が前提になってるんだよ
Excelの呪縛のないプログラミングは最高だぞ

そりゃExcel VBAスレだからじゃね

Excelの中の蛙プログラミングを知らず

🐸だからどれほど自由が広がってるのか分からんわ

エクセルのデータ使わないと厳しい作業だから完全にエクセルなしにはできないな

終端の入出力にExcelを使わざるを得ないことはあるけど、途中のプロセスに必要もないのにExcelを介在させないようには気をつけてるわ
Excelで入ってきた可能な限りExcelからすぐに引き剥がす

354
ミス
Excelの形で入ってきたデータは可能な限りExcelからすぐに引き剥がす

だってここのスレはあくまで実務より趣味の世界のマクロ向けなんでしょ？

動画編集ソフトとかならともかく、Excel自体が趣味で使うような類のソフトじゃないんだから過去スレ全部ひっくるめてもそんな話題1割あるかないかだろ
そもそも今どき趣味のプログラミング言語にVBA選ぶとかマゾかよ

ほぼ趣味たまに仕事だけど最近ちょっと飽きてきた
何かモチベーション上げる手段はありませんか？　テトリスやマインスイーパはもう作りました

IEサポート終了でVBAからのIE操作は出来なくなる？
インストール出来ない環境だとこれしかないのに

>>349
つまりやったことないと・・・
EXCELはCOMだからjavaやC#で外部から弄るとObject開放の壁があってかなり面倒になることはやったことある人なら一発でそれが出てくるもんなんだけどな。

NPoi辺り入れれば開放考えないで済むけどわざわざそのために新しい構文覚えるのも面倒だし
何といっても仕事場に入れていいかどうか確認するのも大変だし入れられないとなったらこの手段も使えない。

そんなもんが入れられるならむしろこういう物をブチ込んだ方がまだ楽
https://qiita.com/mochimo/items/e9be36619a76e15bc898

>>349
それと何か勘違いしているみたいだから言っとくとC#で組んだら楽というのであればC#で組めばいい。

EXCEL VBAはそれがEXCEL単体で動くから楽なのであって、別にプログラムをC#で組むことは出来る。

趣味に使える言語とは

>>358
背景にエロ画像表示させる

厳しい事書くけど、「Excelやマクロの基礎ってなんですか？」と聞いている時点であなたには無理です

と、昔に俺も言われた事ある泣
このスレだったかExcelスレだったか忘れたけど。。。
キツいレスだったけど、今思えば回答者は間違った事は言っていたなかったなと。

いじめられすぎると人間どういうわけか
なにがなんでも相手が正しい理由を見つけようとするらしい

いや、自分の質問が悪かったんす
基礎の意味もわからずに質問するな！と言うことなんでしょう。
いじめられても仕方ないです。

基礎なんて知らなくてもVBAは出来る

そもそも何がエクセルやマクロの基礎なのかはっきりしてないからな
非常に答えにくい

いやまじで基礎ってなんやろね

皆さんありがとうございます。
基礎なんて意識しなくて良いんですね

お仕事で使ってる人は仕事場にコーディング規約があるから基本それが基礎と考えていいと思う。

基礎として存在しているものがなぜ基礎と定義付けられているのか？それを考えるのが一番大事なこと。

例えば基礎なんて意識しないでGoto文とか乱用したりするとどうなるか、とか考えれば必然的に何故基礎というものが大事か、と言うことが分かってくると思う。

上で言われてる基礎って　gotoをめちゃくちゃ乱発できるようなレベルの話じゃないと思うけど

つまづいて初めて基礎の大切さが分かる話ですかね

ただの言葉遊び

option explicitでさえ議論分かれるもん
変数宣言はするべきって所は共通みたい？　ただしforループのカウンタ変数はいちいち宣言しないって人も見た

最初は変数宣言とかオプションなんちゃらとかイラン
処理速度稼ぎたくなったりdate関係で躓いたときにはじめてやればいいだろ

最初は、ならね

だから最初の話でしょこれ
独学で出来て躓いたレベルの人の話じゃないっしょ

ここにはトレーナーに付いて教わる人達はいないでしょう。。。
つまり独学できる高い能力もった人達ばかり

例えばだけど
仕事場でコーディング規約に「モジュールの頭にはOption Explicitをつける」と書いてある場合、付ければ問題ないし、付けなければ怒られる。
コーディング規約に書いて無ければ付けても怒られないし、付けていなければ怒られないケースと、「そのくらい書いていなくても常識だろう」と怒られた挙句、「コーディング規約に書いていなかった」と反論しても、「じゃ、書いといて」と言われるケースも考えられる。
コーディング規約に「付けるな」と書いているのであれば付ければ怒られるし、付けなければ問題ない。

この内、書かれていなかったケースで融通を利かせて付けるか、一応上の人の判断を仰ぐか、付けないかを選択するかはその人次第。
ちなみに付けず、書いてないからと言い張った場合、面倒くさい奴とみなされて仕事場から叩き出される可能性もあることを考慮すること。

客先とかユーザー先とかに提出する成果物や後々他の誰かが見るようなものでなければ正直どうでもいい。
個人で作って試す程度のものであればどう組もうがその人の勝手。
そういうときにやっておけばそうでないものを作成したときに癖になっていて忘れない程度のメリットはあるがその程度。

動作を理解したうえで やる/やらない を自分できめたならそれでいい
問題が起きて困るのは理解していない初心者だろうしね

それですぐこのスレに泣き付いてしまいます

正しい動作を理解しているなら自力で対応できるよでしょ

VBA初心者ですが、任意のセルへ他のシートへジャンプする以下のような関数を埋め込みたいのですが、
エスケープ方法がわからずエラーが出てしまいますがどう書けばいいのでしょうか？

=HYPERLINK("#シート5!A1","詳細")

「シート5」の「5」の箇所を変数「シート番号」にして異なるシートへ飛ばすように書こうとしていますが、これがまた全然うまくいきません。。

"=HYPERLINK("""#シート" ＆ シート番号 ＆ "!A1""","""詳細""")"

説明サイトで見た感じでは↑このように書けばいいとなってましたがエラーになります。「！」もエスケープが必要なのでしょうか？

>>386
＃もエスケープがひつようなのでしょうか？　エスケープだらけでわけがわかりませんｗｗ

Sheet1.Cells(1, 1) = "=HYPERLINK(""#シート" & num & "!A1"",""詳細"")"

>>388
ありがとうございます！！エスケープは2つでいいのですね。助かりました！

>>376
for文用の変数をいちいち宣言するってなんか間抜けだしな

他は宣言するのにって場合はだらしない感じがする
抜くところがずれてるというか

>>376
> ただしforループのカウンタ変数はいちいち宣言しない
っていうのがよく分からん
Option Explicit 使うとエラーになるからそう言う人は Option Explicit 使ってないってこと？
まさかと思うがグローバル変数じゃないよね…

>>392
別に人に見せるもんじゃなきゃどう作ってもいいとは思うけど、
何かどう書いてあるか想像するだけで頭が痛ーくなりそうな感じだね。
俺はそういうの見たくはないわ。

田中信者はすぐ宣言が〜とか言い出す
まーダメだあのオッサン
VBAの話より上から目線で説教の方が長い位だわ

確かに、これから屁をしますっていちいち宣言しないよな。

a for

VBAは消えるかと思ってたけど消えなかったな、PowerオートメイトでExcelはVBAでやってちょうだいって仕様になってる。
てかVBAの言語をいい加減強化してほしいよな、メモリー不足やら宣言やらガチガチすぎ

メモリーは32GB積んでるが
計算で32GBのメモリーが不足するとは思えない。
明らかに嘘だろう

うちのDELLのPCどう数えても消費メモリの計算が合わない
自宅の軽快なのとあんまりにも違いすぎる
裏で何走ってんだ

Dellって名前のついたサービス片端から止めてもまだ焼け石に水状態

VBAスレか

>>392
それ。このスレだから上の方さがしてこい

あ、ごめ、option使ってないってことね

いつまでやってんのよ〜

来週、急な体調不良により休暇をいただきます

訳「じじいなんでコロナワクチンの順番が回って来たので行ってきます。その3週間後にも休むつもりです。でもその前にアナフィラキシーショックや脳卒中や心筋梗塞で死ぬかも知れません」

ゲーム会社とかなら一人プログラマーが欠けた所で代わりはいくらでもいるだろうけど

VBAを使ってる現場は
周りは誰も使えなくて
そいつが抜けた引き継ぎ不能、効率ガタ落ちの地獄になりそう
とかいうイメージ

youtubeの某チャンネルでもそんな話あったな
便利に使ってたくせに開発できるやつが辞めたら誰も直せなくて
「余計なことしてくれるから」とほざく上司

まあ引き継ぎ時にはしっかり周りに合わせてファイルのレベルを下げましょうね

>>407
いんや
ゲーム会社ってデザイナーとか多いけど
普通プログラマーって実はそんなにいないんだよ。

チーフ、こっちの業界ではリーダーだね。
そのレベルの人が辞めたらそのゲームはぽしゃるぐらいのこともあり得るし実際あるんだよ。

いわゆる属人化ってやつ？
マクロはそうなりやすいよね

うちの会社だとそうなることは目に見えてるから
俺がいなくなることを見越して、可能な限りをシート上で設定できるようにしてる
こういう事をしても、設定の仕方を理解しようとする人がいなければ終わるんだけど
まぁそうなりつつあるが、俺はヤレルだけやった

動けば何でもいいんだよ　


おれは毎日残業して仕事してるぞ、
ただしその仕事内容は数時間かけて右の表から左の表へ1セルずつコピペを手でひたすら繰り返しやってるだけて奴よりはね。

１セル１文字の横書きしてるよりまし

引き継ぐ側からすると
大体の詳細設計残しておいて貰えればどういう動きすんのか分かるしまぁ大丈夫だよ。
プログラムもキチンと書いてあるならヘッダ部分のモジュールコメントと関数コメントしか基本要らない。
何か深い意味合いが有って特殊なことをやってるところだけ何のためにやっているか書いといてくれれば。

けど残念ながら大概仕事場から去るような人は意味もなく1関数に何十行にも渡るコード書いてたり、コメントに何のためにやってるかではなく、何をやってるかを書いている人の方が多い

何をやってるかなんてコード見りゃ分かるしそんなコメント要らない。
そしてよく分からないことやってる部分は概ね何らかしらの経緯をへてそうなっているからそう言うのをコメントに残して置いて欲しい。

関数は品質を下げる
関数作成禁止

VBAわかる人材が複数いるようなところは楽そうでいいね

人材

>>416
ボタンくっつけて押せばまず走るのは
関数とかメソッドなんだけど大丈夫？

関数はプロパーが部長の承認をもらい予算を計上して稟議の上作成する
派遣がやるのは１００年早い。

派遣はマクロ禁止

>>420
何やよう分からんけど
普通ツールやシステム組むときって
要件定義、基本設計、詳細設計、コーディング、UT、IT、ST、UAT及びレビューや戻り等の何か有ったときの余裕部分を持たせたものの工数を算出して
そこから金額的な見積もりを算出して予算を決めるもんじゃないの？
そう考えると「コーディング部分は派遣にやらせてはいけない」となるとVBAを出来る人材として派遣を雇った場合、どこを任せるのかな？
関数部分って言うからEXCELのガワでも作らせるのかな？
そんなのコーディングの中で一々分けて工数立ててんの？
大変だねぇ。

なぜだ？
部署全員、Excelのエキスパートで固めるとどうなる？
最強だろ？

マ板でやれ

>>423
人件費の方が高くなる

EXCELのツールごときに予算取れんと一蹴
ホント日本て効率化の基礎すらないよね

そもそも政府からして
大金かけて中抜きしてゴミみたいなシステム作り上げるからな

全員が田中の爺さんみたいになる必要なんか無いんだよ
かえって喧嘩になるわ

最近365のインスコデフォが64Bitなのか知らんが
やたら64Bit入れてるとこ多くてAPIの宣言で苦労するわｗ

官公庁や地方の役所は excel 禁止にするべきだと思う
マイナンバーと一緒にコピペしたゴミファイル対象に存在してそう

>>429
822 名無し~3.EXE sage 2021/06/16(水) 09:36:00.33 ID:mfWEfGUc
https://support.microsoft.com/ja-jp/office/2dee7807-8f95-4d0c-b5fe-6c6f49b8d261?ui=ja-jp&;rs=ja-jp&ad=jp

>インストール プロセスを始める前に、明示的に 32 ビット版を選択しなければ、64 ビット版の Office が自動的にインストールされます。

826 名無し~3.EXE sage 2021/06/16(水) 10:36:08.09 ID:mfWEfGUc
64ビット版Office

Wordファイルをフォルダから選択して開く方法がわからないので教えてください
Documents.open filename:＝.selectedItems(1) でエラーになってしまいます

Dim myFD As FileDialog
　Dim myFolderPath As String
My folderPath ="C:\Users\ユーザ名\Desktop\test"
　Set myFD = Application.FileDialog(msoFileDialogFilePicker)
　With myFD
　.Title = "Wordファイルを選択してください"
AllowMultiSelect = False
　With .Filters
.Clear
.Add "すべてのWordファイル", "*.doc; *.docx"
End With
.initialFileName = myFolderPath
If .Show = -1 Then
Documents.Open FileName:=.SelectedItems(1)
End If
.Filters.Clear
　End With
　Set myFD = Nothing
End Sub

>>415
「リーダブルコード」の丸写し？

何をやってるかはコード見りゃわかるだろって、それが
わからないからコメントって概念があるんだろ。

>>432
とりあえず見つけた間違いが2箇所だけど、これで動くかどうかまでは未検証

正 MyfolderPath = "C:\Users\ユーザ名\Desktop\test"
誤 My folderPath = "C:\Users\ユーザ名\Desktop\test"

正 .AllowMultiSelect = False
誤 AllowMultiSelect = False

>>432
>Documents.open filename:＝.selectedItems(1) でエラーになってしまいます
..selectedItems(1) の部分をpath付きでファイル名直接指定してみ

あとエラーの内容書かないで動かないとか言ってんじゃねーよ

>>433
＞何をやってるかはコード見りゃわかるだろって、それが
＞わからないからコメントって概念があるんだろ。

別に書いてあっても「親切な人だなぁ」とは思うけどきちんと単一責任原則に沿って書かれていればひとつひとつの関数やメソッドは基本そんなに長くなるもんじゃなし、ヘッダコメントに「こんなことやってます」的なことが書かれていれば必要ないよ

コードに対する読解力がないのか
コード書いてる奴が可読性低いコード書いてるのか知らないけど
自分とこの仕事場の能力の低さを棚に上げて俺に言われても困る

>>432
> Documents.open filename:＝.selectedItems(1) でエラーになってしまいます
エラーメッセージを書けよ…
あとそこにブレークポイント掛けて、debug.print myFD.selectedItems(1)
ってやってみて

>>434>>435
レスありがとうございます
エラーは実行時エラー429
ActiveXコンポーネントはオブジェクトを作成 できません です。
>>437
外にいるので後で確認します

Wordをファイル指定なら開けるのですがダイアログボックスのフォルダからファイルを選択して開くのは難しいんでしょうか

>>433
>>415 が言ってるのは極端な例だと
i = i + 1 ' i を１つ増やす
みたいな奴のことだろ

なるほどそりゃ確かに見りゃわかるわってなるな

VBAらしくない

>>441
普通？
そんなのみたこともないけど、それを作るメリットは？

>>441
forループできるのにそれする意味は？

リーダブルコードはコードの要約よりも、意図とか疑問点とか全体としての位置付けとかを書くといいぞって主旨だった気がするが

ネタだぞお前ら