Excel VBA 質問スレ Part65

1 名前：デフォルトの名無しさん mailto:sage [2020/03/17(火) 16:27:20.88 ID:hh8LiIgR0.net] ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part64 https://mevius.5ch.net/test/read.cgi/tech/1575297834/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured 285 名前：デフォルトの名無しさん mailto:sage [2020/04/13(月) 19:48:23.00 ID:V6BYDDPb0.net] 猿とか以前にそもそも基本知識すら身に付けてないのでは… 286 名前：デフォルトの名無しさん mailto:sage [2020/04/13(月) 19:54:15.29 ID:sGzWGZEv0.net] そう、変数なんだというとこまではぎりぎり何とかわかったんです ただ、引っ張ってくるテキスト側の列をどこで制御してるのかがわからず >>283 完全にその通り 単純に勉強不足 ネットでかじってばかりじゃダメだと古いけど本も借りました ただ本当にマジで難しい… https://i.imgur.com/7Ujyfqa.jpg 287 名前：デフォルトの名無しさん mailto:sage [2020/04/13(月) 19:55:45.77 ID:V+m1zN0B0.net] Sub テキストから引っ張る() 　　Dim ファイル名 As String 　　Dim 行 As Integer 　　Dim 列 As Integer 　　Dim 配列() As String 　　Dim 文字列 As String 　　ChDir "C:\Users\user\Desktop\マクロ勉強"　　' フォルダ指定 　　ファイル名 = Dir("*.txt") 　　列 = 2 'テンプレの開始する列の変更 　　Do While ファイル名 <> "" 　　　　Open ファイル名 For Input As #1 　　　　For 行 = 2 To 13　　' テキストの引っ張ってくる行を指定 　　　　　　Line Input #1, 文字列 　　　　　　配列 = Split(文字列, vbTab) 　　　　　　Cells(行, 列) = 配列(2) 　　　　Next 　　　　Close #1 　　　　ファイル名 = Dir() 　　　　列 = 列 + 1 　　Loop End Sub 288 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e2b5-G6fV) mailto:sage [2020/04/13(月) 19:58:56 ID:sGzWGZEv0.net] うお、変数の宣言をあらかじめわかりやすくしてくれて馬鹿な俺を誘導してくれようとする人が！！絶対そんな感じのありがたい人だ！ 今から車に乗って帰ったら速攻PC開きます！−−！！ 289 名前：デフォルトの名無しさん mailto:sage [2020/04/13(月) 20:19:57.09 ID:Kp4LtUp30.net] >>281 >>284 まずVBAの入門書を読んで基礎知識を 整理するといい（するみたいだけど） あと「テキストから引っ張る」っていう言葉が曖昧 「テキストファイルを読み込む」「セルに展開する」 みたいに仕様を適切な言葉で把握しておくだけで ネットで検索すればすぐサンプルコードが引っかかる 本当はなるべく「f」も「file」とか具体的に 命名した方が分かりやすくていいと思うけど （ファイル用変数とセルの列を混同した一因だろうし） まず日本語のレベルで言葉を整理しよう 290 名前：デフォルトの名無しさん mailto:sage [2020/04/13(月) 22:05:23.75 ID:sGzWGZEv0.net] >>287 全くその通りです。 とりあえず ほぼ意味わからないまま上の人達のおかげで自分の今の業務が10倍以上余裕で速くなるであろうマクロボタンをベースになるxlsmのシートに一つ登録したらたった今完成してしまいました… 隣のシートの正式フォームに数値のみコピーするのだけはマクロで追加しました Sub テキストファイルをベースに読み込む() ChDir "C:\Users\ikuzo\Desktop\測定データ" 'フォルダ指定 FILE = Dir("*.txt") c = 2 'ベースの開始する列の変更 Do While FILE <> "" Open FILE For Input As #1 For r = 2 To 13 'セルに展開する行を指定 Line Input #1, s Cells(r, c) = Split(s, vbTab)(5) Next Close #1 FILE = Dir c = c + 1 Loop Range("B2:L13").Select Selection.Copy Sheets("測定結果報告書").Select Range("D5:N16").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub 何度やっても一瞬で完璧に処理が終わる… だがさっぱり意味がわからん、、 本読みます。。 291 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e2b5-G6fV) mailto:sage [2020/04/13(月) 22:52:20 ID:sGzWGZEv0.net] ああ、ダメだ。'でメモりまくったけど 出力する側のエクセルシートの列の指定はわかったけど行の指定がわからなかった。勉強ですね。。 みなさんありがとうございました。 292 名前：デフォルトの名無しさん mailto:sage [2020/04/13(月) 23:09:41.81 ID:nLvmNP810.net] ちらっちらっ 293 名前：デフォルトの名無しさん mailto:sage [2020/04/13(月) 23:14:07.84 ID:sGzWGZEv0.net] ごめん、ダメだ。助けてください。 混乱しまくってます。全然違った 読み込むテキスト側の行指定がわからない、、 ベースの方にテキスト2行目8行目からを指示、 とかそれをしないと会社で対応できないです… 294 名前：デフォルトの名無しさん mailto:sage [2020/04/13(月) 23:21:22.07 ID:V6BYDDPb0.net] そりゃ変数すら知らない知識レベルならこんな短時間じゃなんもできんだろう… 295 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e2b5-G6fV) mailto:sage [2020/04/13(月) 23:39:16 ID:sGzWGZEv0.net] 先輩曰くとりあえずわからなくても1つ何か作ってそっから覚えていけと言われ… Sub 指定フォルダの全テキスト絞り読み込み() ChDir "C:\Users\user\Desktop\測定機データ" 'フォルダ指定 FILE = Dir("*.txt") retu = 2 'ベース列決定でAは1から Do While FILE <> "" Open FILE For Input As #1 For Tekist = 3 To 12 'ベース任意行決めでテキストは1行目から Line Input #1, s Cells(Tekist, retu) = Split(s, vbTab)(5) 'テキスト初列を()で決めるがAは0から Next Close #1 FILE = Dir retu = retu + 1 'この数だけ列飛ばしにベースに読み込む Loop End Sub 'テキストを任意の行から読むのが課題4月13日 毎日勉強しないとなぁ。ほんと 296 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f71f-nfbJ) mailto:sage [2020/04/13(月) 23:57:52 ID:k2GojJ+U0.net] PDFファイル（画像）をEXCELに貼り付ける際の画像の素の大きさってどうやって取得できます？ 297 名前：デフォルトの名無しさん mailto:sage [2020/04/14(火) 00:02:13.22 ID:A2P11e7ma.net] いきなり別ファイル（txtファイル）読み込んだり、配列変数あったりで難しいよ。 本来はもっと基礎からやらないと。 298 名前：デフォルトの名無しさん mailto:sage [2020/04/14(火) 00:02:49.64 ID:PthiGcDI0.net] >>293 テキストファイルは1行ずつ順番しか読み込むことができないから、3行目が必要な時は最初の2行を読み飛ばさないといけない Open FILE For Input As #1 Line Input #1, s ' 1行目を読み込むだけで何も処理をしない Line Input #1, s ' 2行目以下略 For Tekist = 3 To 12 　　Line Input #1, s ' 3行目以降 　　Cells(Tekist, retu) = Split(s, vbTab)(5) Next 299 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e2b5-G6fV) mailto:sage [2020/04/14(火) 00:29:53 ID:Ua5gdcz00.net] >>296 本当に本当にありがとう、 上の人たちも本当にありがとう 無知のド素人の俺でも超完璧に動かせました 感謝しかないです。本当に勉強します Sub 指定フォルダの全テキスト絞り読み込み() ChDir "C:\Users\ikuzo\Desktop\測定機" 'フォルダ指定 FILE = Dir("*.txt") retu = 2 　'ベース列を決定でAは1から Do While FILE <> "" Open FILE For Input As #1 'Line Input #1, s 　　 ' 1行目を読むだけで何もしない(テキスト1行目からで良ければ普段は封印 'Line Input #1, s 　　 ' 2行目以下略 For Tekist = 3 To 12 'ベース初行〜任意行決めでテキストは1行目からだが封印の解放により連動 Line Input #1, s Cells(Tekist, retu) = Split(s, vbTab)(5) 'テキスト初列を()で決めるがAは0から Next Close #1 FILE = Dir retu = retu + 1 'この数字を変えた分だけ列飛ばしにベースに読み込む　 Loop End Sub '本当にありがとうございました4月14日 300 名前：デフォルトの名無しさん mailto:sage [2020/04/14(火) 16:20:04.61 ID:BhIp9WlU0.net] >>296 Tekist ワロタ 301 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sd02-AglQ) mailto:sage [2020/04/14(火) 18:14:44 ID:srMYTcHJd.net] TekisutoでもTextでもTexteでもないのな 302 名前：デフォルトの名無しさん mailto:sage [2020/04/14(火) 19:13:19.46 ID:Ua5gdcz00.net] 今日、神懸かり的に職場の測定機のPCのツールとして産声を上げました あとは起動と同時に出るユーザーフォームにボタン4くぐらい作って割り当ててとりあえず完成しそうです そして今日から本を愛読して変数について基礎から学んできます 自分で変えたのがわかるように誤記ぐらいにしとかないと何かのコマンドやコードがわからないので textって打ったら先頭が大文字に変わるから こりゃいかんと 303 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ bb7c-slfm) mailto:sage [2020/04/14(火) 19:29:23 ID:2/fcFDaL0.net] なんでもいいから一つ作れってのは作ってもらえって意味じゃないと思うな 304 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM5b-L0r9) [2020/04/14(火) 19:39:44 ID:5O9c120iM.net] 活気が出てええやん 過疎スレやし 305 名前：デフォルトの名無しさん mailto:sage [2020/04/14(火) 21:50:12.98 ID:Ua5gdcz00.net] 変数の定義や宣言をとにかく最初にする癖をつければ 後でわかりやすいことが本でわかり そして英字じゃなくてもいいことに驚きました 慣れてるたち人のサイトだと Dim Folderpass As String Dim FileInt As Long とか英字だけど Dim フォルダ場所 As String Dim ファイル数 As Long とか和文字だと支障でますかねこれ 306 名前：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa3a-d4/r) mailto:sage [2020/04/14(火) 21:58:17 ID:A2P11e7ma.net] 個人的には変数名で日本語は避けてる。 逆に読みにくいので。 307 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 23da-AglQ) mailto:sage [2020/04/14(火) 22:06:22 ID:4z3IdTPt0.net] 拙者も日本語はコメントで書くようにしてコードは英数字で書くようにしている 308 名前：デフォルトの名無しさん mailto:sage [2020/04/14(火) 22:20:28.98 ID:Ua5gdcz00.net] なるほど、俺も英字で作る癖つけた方が良さそうですかね 字の色でわかるだろ…とは言え、なんかの関数やコマンドと似てるとやはり最初は難しいですね Tekist Fname Fpass shseeet とかにしてこれ俺の宣言した変数だわ って最初は作ってみます あざす！ 309 名前：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa3a-d4/r) mailto:sage [2020/04/14(火) 22:37:22 ID:A2P11e7ma.net] 変数の付け方とかで、書いた人の実力が分かるという説もあるから。 私は小文字で始めるキャメル式が見やすいと思って大体統一してる。 310 名前：今度はビルドとはとか言い出すんだろうか？ (ﾄﾞｺｸﾞﾛ MMaf-Y19k) mailto:sage [2020/04/14(火) 22:38:37 ID:e6NkXt+SM.net] > とか和文字だと支障でますかねこれ 今時C/C++ですら変数名に漢字使えたりするぐらいだから問題ない 特にフォルダーパスをFolderpassとか書くような人は積極的に使うべき 311 名前：デフォルトの名無しさん mailto:sage [2020/04/14(火) 22:53:49.36 ID:PthiGcDI0.net] VBAだとそんなに困ることはないんだけど、.netはライブラリが膨大すぎて、既存のメソッドやプロパティと名前が被るかどうかの確認が面倒 あと、語彙力が足りなくてユニークな英単語が思いつかないとか、辞書で調べて付けた変数名があとから見返すと意味がわからないとかある 312 名前：デフォルトの名無しさん mailto:sage [2020/04/14(火) 23:05:59.10 ID:wBIN668P0.net] >>309 >語彙力が足りなくてユニークな英単語が思いつかないとか 曜日、曜日って英語でなんて言ったかなー せや、yb ですましたら 313 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ f709-zfCe) mailto:age [2020/04/14(火) 23:20:30 ID:1uq460ot0.net] 最近プログラム自体始めた初心者です。 日々勉強ばかりですので、汎用性が高くなるよう目指し、 知識を入れてはコードを改良し、それを外部保存、そして 実行するブックで呼び出して使っています。 ついこないだ引数という便利なものを知り、さっそく使っているのですが、 ひとつ疑問が。 「特定セルに、作成したリストの上から順に内容を書き込む」という 簡単なfor〜nextループマクロを使いまわしたいのですが、そのループ処理内容を callなどから設定することはできるのでしょうか？ （たとえば、あるブックでは印刷処理したい、けどこっちではシートコピー処理したい、 など） 引数で、特定セルやリストの開始行は設定できたのですが。。。 宜しくお願いいたします。 314 名前：デフォルトの名無しさん mailto:age [2020/04/14(火) 23:23:30.52 ID:1uq460ot0.net] >>311です。一部分かりづらかったので訂正いたします。 ×「そのループ処理内容をcallなどから設定することは〜」 〇「そのループ処理内容を、実行するブックから設定することは〜」 315 名前：デフォルトの名無しさん [2020/04/14(火) 23:30:42.95 ID:ps8T64zC0.net] 馬鹿が一気に出てきたのはコロナウイルスで脳炎や痴呆症でも発症するのか？ 316 名前：デフォルトの名無しさん mailto:sage [2020/04/14(火) 23:31:29.82 ID:PthiGcDI0.net] >>311 サブルーチンの中にブック名を判定するIfを入れるとか、引数を増やして処理を切り替えるとか、方法はいくつもある 317 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ e2b5-G6fV) mailto:sage [2020/04/14(火) 23:44:19 ID:Ua5gdcz00.net] Sub データ数の確認() Dim FoPath As String Dim Fname As String Dim Fnum As Long Dim SetPath As String FoPath = "C:\Users\user\Desktop\測定機" 'フォルダのパスを指定する Fname = "*.txt" 'ファイル名と拡張子指定 Fnum = 0 'ファイル数を一度0にする '指定したフォルダパスとファイル名をセット SetPath = Dir(FoPath & "\" & Fname) Do While SetPath <> "" 'ファイル名が取得出来なくなるまでループ Fnum = Fnum + 1 SetPath = Dir() Loop MsgBox Fnum & "つデータが入っています。" End Sub 見様見真似というかネットからパクってユーザーフォームのボタンに追加できました。 このスレの人たち凄いです 318 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 068e-f9/D) [2020/04/14(火) 23:55:34 ID:ps8T64zC0.net] いい加減に馬鹿は消えろ 319 名前：デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-AKYr) [2020/04/15(水) 00:06:27 ID:IBkk3oxvM.net] >>311 他のナウい言語みたいに関数ポインタとか使いたいのだろうが おとなしくコマンド文字列でも渡してselectでもしとけ 320 名前：デフォルトの名無しさん mailto:sage [2020/04/15(水) 01:14:25.80 ID:vPyadW120.net] ナウい変数名を考えようと思って色々試したら、結構いけるじゃん。 Dim ヽ, 卍, ¶, ��, �f, ��, ��, ≒, ♪ ♪ = 1 Debug.Print ♪ 321 名前：デフォルトの名無しさん mailto:sage [2020/04/15(水) 01:17:01.85 ID:vPyadW120.net] あ、普通にこれでいいか。 Dim 骸骨剣士, 死霊の騎士, 幽霊, 死神 322 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/15(水) 01:24:08 ID:Ikiffowr0.net] For 愛 = 1 To 10 323 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/15(水) 01:34:17 ID:Ikiffowr0.net] >>319 うちの新人が最初に書いてきたコードがそれだったわ (実話 もちろん熟語の意味と変数の用途は無関係で、厨二ワードを思いつきで適当に並べただけ 324 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 57ad-LzhE) mailto:sage [2020/04/15(水) 02:43:11 ID:zLal5e060.net] >>311 初心者なら具体的な処理を抽象化していく ボトムアップのやり方が分かりやすいと思う たとえばかけ算の九九を求める関数に 引数でXを渡してXxX（12×12など）を 求める関数に抽象化すると使い道が広がる あるいは5行6列目のセルを処理する関数を X行Y列目を処理するように拡張するだとか 関数の引数は数学の変数のように考える そして関数（やクラス）を自作する時のポイントは なるべく関数を小分けにして組み合わせて使うこと 関数が大きくなると理解するのも難しくなるから 印刷やシートのコピーとか別の処理を ひとつの関数で全部やろうとしないで 別々の関数に書いておく それで呼び出し元の関数から 実行する関数をIF文で切り替えたりする Excel VBAに限らずプログラミングの定石 325 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffcc-Ho7r) mailto:sage [2020/04/15(水) 08:51:03 ID:7yJWhPoQ0.net] 個人的な意見だけど 変数を日本語にする事の欠点は、目立ちすぎて、他が見にくくなる事だと思う ループカウンタの様な頻出する変数には、制御構造が見にくくなるので避けるべき ルーチンの目的的なものとか、あまり使わないような変数については、場合によっては推奨 326 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d7ac-DNPS) mailto:sage [2020/04/15(水) 10:07:54 ID:fYr2Vm730.net] いいたいことはわかる なでしこみたいに構造もそうなってれば、比較して自然に見えるしね まあでも英語で慣れちゃってると、気になっちゃうから可読性低いと評価してしまうわ 327 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 1791-N0vN) mailto:sage [2020/04/15(水) 11:57:43 ID:qO0uVKDC0.net] >>303 絶対に止めた方が良い。 今、他人のそういうコードで四苦八苦してる。 しかもプロシージャも日本語だから If 測定結果 Then などとあって、"測定結果"が変数なのかBooleanを返すプロシージャなのかすら直ぐには分からない。 328 名前：デフォルトの名無しさん [2020/04/15(水) 12:04:59.54 ID:tJWgJTOGM.net] それはエーゴでもかわらなくなくね？ 329 名前：デフォルトの名無しさん mailto:sage [2020/04/15(水) 12:43:22.36 ID:9r3ObWq4r.net] >>32 「定義」ですぐわかる 330 名前：デフォルトの名無しさん mailto:sage [2020/04/15(水) 12:47:51.20 ID:9r3ObWq4r.net] 325の間違い 331 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/15(水) 13:14:16 ID:Ikiffowr0.net] がっつり英語だと、こんどは辞書を引く作業が待ってることもある 発音がわからないと会話で困るし 332 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 778f-Eg7/) [2020/04/15(水) 13:39:00 ID:zDLD/Qb60.net] 特定のURLのソースに任意の文字列が記載されているかどうかを判断したい。 https://auctions.yahoo.co.jp/seller/abcdfgh https://auctions.yahoo.co.jp/seller/zakattas https://auctions.yahoo.co.jp/seller/zafect789 というページのリストがあったとして、ソースに"停止中"もしくは"無効"の文字列が あるURLにはB列に"NG"と吐き出す、ということをやりたいです。 https://okwave.jp/qa/q6120067.html が近いんですが「２）一般的な文字列の場合」はエラーが出て動きませんでした。 VBAに詳しい人、よろしくお願いします。 333 名前：デフォルトの名無しさん (ｱｳｱｳｴｰ Sadf-Ho7r) mailto:sage [2020/04/15(水) 13:51:28 ID:5mkkxmmPa.net] grep なら一行でできるのに VBA でやらないといけないのか 334 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ bff7-pwY/) mailto:sage [2020/04/15(水) 13:53:51 ID:VtNtlccy0.net] 人に送ったら日本語フォントない海外PCで全く動かなくなったりしたな 335 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/15(水) 14:13:32 ID:Ikiffowr0.net] >>330 参考リンク先のどのプログラムを試して、どの行でどんなエラーが出たか書いて エラーが出たままでCtrl+Cを押せば、エラーメッセージがクリップボードに入るから、それをコピペして あと、目的のWEBサイトの文字コードはちゃんと確認した？ 336 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/15(水) 14:16:13 ID:Ikiffowr0.net] >>331 まあ wget | nkf | grep のが簡単かもね 337 名前：330 (ﾜｯﾁｮｲ 778f-o1R8) mailto:sage [2020/04/15(水) 14:42:43 ID:zDLD/Qb60.net] >>333 すいません。 コピペ繰り返してたらなんとか行けました。 Sub YouTube_Search() Dim objIE As Object Dim i As Long Dim j As Long Set objIE = CreateObject("InternetExplorer.Application") With objIE For i = 1 To Range("A1").End(xlDown).Row .navigate Cells(i, 1).Value While .Busy Or .ReadyState <> 4: DoEvents: Wend For j = 1 To .document.all.Length If InStr(.document.all(j - 1).outerText, "Yahoo! JAPAN IDが無効です") > 0 Then Cells(i, 2).Value = "＊" Exit For End If Next Next End With objIE.Quit Set objIE = Nothing End Sub 338 名前：デフォルトの名無しさん (ｽｯﾌﾟ Sdbf-N0vN) mailto:sage [2020/04/15(水) 14:43:10 ID:dyZQaRRHd.net] >>326 確かに。 でも日本語フィールドが多いSQL文の中で、一部の変数も日本語だったりするのとか、変数と気付かなかったりするのもあるし、最悪だよ。 339 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1b-4fgg) mailto:sage [2020/04/15(水) 15:14:20 ID:4idtb0t/a.net] かわらなくね？かわらなくなくね？ 340 名前：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMbf-A2g6) mailto:sage [2020/04/15(水) 19:27:28 ID:DRi90/CyM.net] >>325 なんの測定なのか知らんけど測定結果がBooleanな時点で知能の足らない職場と言うことがわかる コードレビューなんてしたこと無いだろ 341 名前：デフォルトの名無しさん mailto:sage [2020/04/15(水) 21:47:05.33 ID:vXo73Hp80.net] 辞書で調べても馴染みのない単語でかえってわかりにくくて結局日本語にしてみたりね 342 名前：デフォルトの名無しさん mailto:sage [2020/04/15(水) 22:13:27.05 ID:qXjFLib20.net] 311です。 >>314,317,322 私がやろうとしていたことが、まず効率の悪いことだったんですね・・・ 細かく分けて関数作って、それを組み合わせて作る方法を取りたいと思います。 （ただ、どこまで細かく分ければいいのか、まだ要領を掴んでおりませんが） ありがとうございました。 343 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-IW4T) [2020/04/15(水) 22:29:20 ID:bRq9+Y6qM.net] 初心者ですがご教授下さい サンプルの工程能力で1個につき6項目の測定値をソフトがエクセルにデータ出力してくれるけど、日によっては23個だったり25個だったりしか測定できず 残りの記入方法は人によって様々で ある人は測定値のバラつきに近い値をテンキーで手打ち ある人はエクセルのrandbetween関数で 各項目の測定値のMAXとMINで乱数だしてそれをコピぺ ｻﾝﾌﾟﾙ1 ｻﾝﾌﾟﾙ2　 〜ｻﾝﾌﾟﾙ30 項目1 項目2 項目3 項目4 項目5 項目6 こんな並びで全項目測定後に出力されるから項目の途中で止まることはないです 「ｻﾝﾌﾟﾙ1〜30の間の項目1の行に空白があった場合、それより前（左）にある全ての測定値を参考に乱数でｻﾝﾌﾟﾙ30の項目6まで埋める」 これは難易度かなり高いですか？ 344 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-IW4T) [2020/04/15(水) 22:33:03 ID:bRq9+Y6qM.net] 誤記というか間違えました 「ｻﾝﾌﾟﾙ1〜30の間の項目1の列、又はセルに空白があった場合、それより前（左）にある全ての測定値を参考に乱数でｻﾝﾌﾟﾙ30の項目6まで埋める」 です すみませんがどういったアプローチがあるのか そもそもできるのかご教授下さい 345 名前：デフォルトの名無しさん (ｱｳｱｳｴｰ Sadf-fVbL) mailto:sage [2020/04/15(水) 22:49:03 ID:xz8oNroja.net] >>342 それは多分難しくないと思うけど、読解力がなくてよく分からない。 サンプル的なものを挙げてもらえると分かりやすいかも。 346 名前：322 mailto:sage [2020/04/15(水) 23:00:46.12 ID:zLal5e060.net] >>340 ＞どこまで細かく分ければいいのか 基本的に処理は関数名に沿って分ける 関数名から逸脱した処理があれば 別の関数に分けて整理していく だから関数や変数の 適切な命名が重要になってくる 面倒でも名前と処理を対応させた方が 後でメンテナンスしやすくなる 347 名前：デフォルトの名無しさん [2020/04/15(水) 23:19:56.30 ID:bRq9+Y6qM.net] >>343 いや、俺の説明力がなくて、、 というか行列が逆でした 再度説明させてください https://i.imgur.com/D4MOqky.jpg こんな感じで機械がエクセルに出力してくれるけど 残りのサンプルの数字は上の測定値を見てみんなそれぞれランダムにテンキーで入力したりと、いわゆる数値を適当にバラして打ち込んでます。（偽装というほど重要ではないので） 日によって測定できるサンプルが数が違います。 参考になるか程度のスクショになりますが 「サンプル1から30までで空白の行列があったらそれまで測った上のサンプルの測定値を元に乱数でサンプル30の項目6までVBAが全て記入してくれないかなと、 こんな感じです 348 名前：デフォルトの名無しさん mailto:sage [2020/04/15(水) 23:34:48.80 ID:xz8oNroja.net] 「列、又はセルに空白があった場合、それより前（左）にある全ての測定値を参考に」というのは？ その例でいうと、 ・項目1のサンプル8、9、10が空欄なので、1から7の数値を元にして適当な数値で埋める。 ・残りの項目についても同様 ということですか？つまり上の数値を元にしてるけど。 処理自体は難しくないとは思います。 349 名前：デフォルトの名無しさん [2020/04/15(水) 23:57:01.64 ID:bRq9+Y6qM.net] >>346 その例でいうと、というか今の職場の手間になってる仕事がまさにその通りです 上の数値を元に残りの項目を誰かが埋めてます どんなアプローチで行ったらよさそうかアドバイスいただませんか Rnd関数Int関数、Loop、Offset 調べてもなかなかわからずです‥ 350 名前：デフォルトの名無しさん mailto:sage [2020/04/15(水) 23:58:14.63 ID:Ikiffowr0.net] >>345 数字を偽装するルールが人によって違うのはわかったけど、あなたはどういうルールでやりたいのか、もうちょっと厳密に書いて 「それまでの数値を参考に」という表現では曖昧すぎてプログラミングできない 例として、サンプルが7個しかなかった場合は、その7個の数字をどう使って30個に増やすのか？ 351 名前：デフォルトの名無しさん [2020/04/16(木) 00:23:27.26 ID:WB3hiXkKM.net] >>348 数式と一覧を削りましたが普段はここの赤矢印に測定したデータのMax値とMin値を入れて EXCELの関数でこのような数式で乱数を 出しています 数年前に自力で作ったけどもはや覚えていないレベルです https://i.imgur.com/eglO3Ph.jpg 352 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-IW4T) [2020/04/16(Thu) 00:25:05 ID:WB3hiXkKM.net] あとスクショ取りたいが故に行数の抜けやズレが、、、すみません 353 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f85-i57j) mailto:sage [2020/04/16(Thu) 00:30:19 ID:eKixqxFQ0.net] 最低値+rnd×最大最低の差で乱数になるよ 354 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/16(Thu) 00:35:38 ID:YY8HOOMA0.net] とりあえず行と列の位置は>>345の画像に合わせて作ったから、あとは適当に修正して Sub Macro1() 　　For 項目 = 1 To 6 　　　　列 = 項目 + 2 　　　　最小 = Application.WorksheetFunction.Min(Cells(6, 列).Resize(30)) * 1000 　　　　最大 = Application.WorksheetFunction.Max(Cells(6, 列).Resize(30)) * 1000 　　　　For サンプル = 1 To 30 　　　　　　行 = サンプル + 5 　　　　　　If Cells(行, 列) = "" Then 　　　　　　　　Cells(行, 列).NumberFormatLocal = "0.000" 　　　　　　　　Cells(行, 列) = Application.WorksheetFunction.RandBetween(最小, 最大) / 1000 　　　　　　End If 　　　　Next 　　Next End Sub 355 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/16(Thu) 00:52:18 ID:YY8HOOMA0.net] >>351の方法を取り入れてみた Sub Macro1() 　　For 項目 = 1 To 6 　　　　列 = 項目 + 2 　　　　最小 = WorksheetFunction.Min(Cells(6, 列).Resize(30)) 　　　　最大 = WorksheetFunction.Max(Cells(6, 列).Resize(30)) 　　　　幅 = 最大 - 最小 　　　　For サンプル = 1 To 30 　　　　　　行 = サンプル + 5 　　　　　　If Cells(行, 列) = "" Then 　　　　　　　　Cells(行, 列).NumberFormatLocal = "0.000" 　　　　　　　　Cells(行, 列) = Rnd() * 幅 + 最小 　　　　　　End If 　　　　Next 　　Next End Sub 356 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcf-IW4T) [2020/04/16(Thu) 01:25:57 ID:ltLJf2qHM.net] >>353 神様過ぎびっくりです。 セルをクリックすると.0754322457888とか小数点が残ってるのですがこれを EXCELのROUND関数みたいに四捨五入した状態でここに出力するようにできますか？ 四捨五入で0.000の桁で出力できたらもう 職場の2人が失職してしまうレベルです 357 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ d7ac-DNPS) mailto:sage [2020/04/16(Thu) 01:33:01 ID:5emHbHZx0.net] それくらい調べたんかな 358 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/16(Thu) 01:41:31 ID:YY8HOOMA0.net] >>354 Cells(行, 列) = Round(Rnd() * 幅 + 最小, 3) 実際、ごく簡単なマクロで仕事を効率化したおかげで毎年たくさんの失業者が出てるからほどほどにな 経営側でなければ、サビ残がなくなるぐらいのところでやめとけよ 359 名前：デフォルトの名無しさん [2020/04/16(木) 01:59:01.29 ID:dFCopLc9M.net] >>356 神様ありがとう。涙出てきました。 360 名前：デフォルトの名無しさん [2020/04/16(木) 02:43:35.11 ID:Kf4avcM70.net] >>357 またこの間の馬鹿か 361 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 03:23:43.55 ID:KenjGRyod.net] 無意味なデータ入力に数百万の人件費を払う会社か すげーな マクロで解決するより、その作業をなくす方法を真剣に考えた方がいいんじゃないか？ 362 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 08:08:02.24 ID:IIRVmVIhr.net] コード教えて君もいるし、PC博士気取れるから教えちゃうやつもいる 363 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 08:16:07.12 ID:Br0d9N6Q0.net] 一時しのぎにはなっても長い目で見れば迷惑にしかならない 364 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 10:34:35.59 ID:HIOPYfc5a.net] 自力でマクロも書けんやつが作ったマクロで会社の経理やるなんてブラック企業しかない 365 名前：デフォルトの名無しさん (ｽﾌｯ Sdbf-xa8R) mailto:sage [2020/04/16(Thu) 11:54:49 ID:wE+PDO4Yd.net] 4月は零細の新入社員が単純作業をマクロでどうにかしようとがんばる時期 366 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 7749-DNPS) mailto:sage [2020/04/16(Thu) 11:56:31 ID:RK65w6zF0.net] そして保守できずに五月病で辞める 367 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 12:13:47.85 ID:6vJJDJtDM.net] ＞＞363 もともと99%はブラックだし 会社の規模とか無関係に 368 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 12:29:59.97 ID:mPB4Kayur.net] 初歩的な質問なんですけど、ロック付きのブックを編集してSaveAsやcloseで保存したときにロックなしのブックにしたいんですが、どうやればできますか？ 369 名前：270 (ﾜﾝﾄﾝｷﾝ MMcf-4RW9) mailto:sage [2020/04/16(Thu) 12:54:20 ID:cYWHpILcM.net] >>366 イベントプロシージャにロックを外す処理を書けばいい 370 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1b-4fgg) mailto:sage [2020/04/16(Thu) 13:43:07 ID:pZjivNa8a.net] ロックかけた人に外してもらう 371 名前：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1b-4fgg) mailto:sage [2020/04/16(Thu) 13:47:25 ID:pZjivNa8a.net] 俺に会社の経理やらせてくれたら自分の口座に自動で入金する処理入れるよ 372 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 14:50:28.74 ID:xWZcVh5Wa.net] 画像フォルダのファイル名を取得→ファイル名と同じ文字列の入ったセルに画像を挿入→画像をセルのサイズに合わせるというサンプルコードを見つけたのですが 画像フォルダ内にファイル1〜5まであり、エクセル内にファイル1の文字列がない場合、「オブジェクト変数またはwithブロック変数が設定されていません。」のエラーが出ます おそらくIFでその場合の処理を設定すればよいのではと思うのですが、変数の設定の仕方が分からないです 昨日今日始めたネット聞きかじりの知識で申し訳ございませんがアドバイス頂けないでしょうか 373 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 15:01:25.35 ID:YY8HOOMA0.net] >>370 まずはうまく動かないコードをここに書いて 374 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 15:08:48.79 ID:RK65w6zF0.net] こらはまたコード出してくれるの待ってるクレクレ君 375 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 15:11:15.02 ID:xWZcVh5Wa.net] >>371 ネット丸パクリのコードだけど Sub sample04() Dim objShape As Object Dim strPath As String, strFileName As String Dim strImgName As String strPath = "c:¥temp¥" strFileName = Dir(strPath & "*.jpg") Do Until Len(strFileName) = 0 strImgName = Left(strFileName, Len(strFileName) - 4) Cells.Find(What:=strImgName).Activate ActiveCell.Offset(0, 1).Activate Set objShape = ActiveSheet.Shapes.AddPicture( _ Filename:=strPath & strFileName, _ LinkToFile:=False, _ SaveWithDocument:=True, _ Left:=ActiveCell.Left, _ Top:=ActiveCell.Top, _ Width:=ActiveCell.Width, _ Height:=ActiveCell.Height) strFileName = Dir() Loop End Sub 376 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 15:12:43.83 ID:xWZcVh5Wa.net] 最終的には画像1-4はシート1、5はシート2みたいな感じに貼りたいんだがとりあえず画像1の文字列ないとエラー起こすのを直したいです 377 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ffcc-Ho7r) mailto:sage [2020/04/16(Thu) 16:37:22 ID:V7jYJHWg0.net] どこでエラーが起きてると思う？ 検索して見つからなかったセルに対して何かをしようとしたから、何に対してやるんだよーってエラーが起きたんだよ コードを見ると、Findメソッドの戻り値に対して直接Activateしてるから、そこをばらす必要があるので、一旦戻り値を変数に受けるといい セルはRangeオブジェクトで、 Findメソッドは通常、Rangeオブジェクトを返す オブジェクトを変数に代入する場合は、 Set をつける 見つからなかった場合はFindメソッドはNothing を返す オブジェクトの比較には、Is を使う 例: If Not(r is Nothing) Then 〜 あとはがんばれ 378 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff8e-eUuY) [2020/04/16(Thu) 17:37:30 ID:Kf4avcM70.net] 馬鹿がコピペで作ったものは使い物にならない 379 名前：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr8b-LtOn) mailto:sage [2020/04/16(Thu) 18:14:58 ID:mPB4Kayur.net] >>367 ありがとうございます。やってみます 380 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) mailto:sage [2020/04/16(Thu) 18:19:31 ID:YY8HOOMA0.net] Sub sample04() 　　Dim objShape As Object 　　Dim strPath As String 　　Dim strFileName As String 　　Dim strImgName As String 　　Dim rngStatus As Object 　　strPath = "c:\temp\" 　　strFileName = Dir(strPath & "*.jpg") 　　Do Until 381 名前：strFileName = "" 　　　　strImgName = Left(strFileName, Len(strFileName) - 4) 　　　　Set rngStatus = Cells.Find(What:=strImgName) 　　　　If Not (rngStatus Is Nothing) Then 　　　　　　rngStatus.Offset(0, 1).Activate 　　　　　　Set objShape = ActiveSheet.Shapes.AddPicture( _ 　　　　　　Filename:=strPath & strFileName, _ 　　　　　　LinkToFile:=False, _ 　　　　　　SaveWithDocument:=True, _ 　　　　　　Left:=ActiveCell.Left, _ 　　　　　　Top:=ActiveCell.Top, _ 　　　　　　Width:=ActiveCell.Width, _ 　　　　　　Height:=ActiveCell.Height) 　　　　End If 　　　　strFileName = Dir() 　　Loop End Sub [] [ここ壊れてます] 382 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 18:52:45.98 ID:Cbge2SK50.net] >>369 自動なのにトロイ処理とはこれいかに！ 383 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ ff8f-Ho7r) mailto:sage [2020/04/16(Thu) 19:18:26 ID:np7lPiVv0.net] >>342 「それより前（左）にある全ての測定値を参考に」が仕様としては曖昧模糊としてる気がする。 384 名前：デフォルトの名無しさん (ﾜｯﾁｮｲ 77da-o3Ob) mailto:sage [2020/04/16(Thu) 19:21:15 ID:XXRRqnVg0.net] >>375 >>378 ありがとうございます、動かしながら理解していこうと思います 385 名前：デフォルトの名無しさん mailto:sage [2020/04/16(木) 20:15:43.63 ID:/BsiXYGwd.net] >>338 知らねーよ。 10年以上前の、他社から引き継いだ、正直全部書き直したいけど今動いてるからそっとしておいてるコードだよ。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef