Excel VBA 質問スレ Part52
■ このスレッドは過去ログ倉庫に格納されています
スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
※前スレ
Excel VBA 質問スレ Part51
http://mevius.2ch.net/test/read.cgi/tech/1510107990/ 他に現実的な解法が無いからVBA使っているだけで、誰も好んで使っているわけではないんだけど、
かといって自分の無能を全てVBAのせいにしている発言を見るとイラッとするのは確か 完全に割り切って ByVal As Object または ByVal As Variant で委譲オンリー 間違えた
ByVal As Object または ByRef As Variant エクセルのマクロちょいちょいと組み立てて自動化させたら
ズルをするな、計算機でちゃんと計算して打ち込め
って怒られた
意味わかんねー パソコンが登場し始めた前世紀になら居ただろうけど、このご時世だと信じがたいわな その手の輩は
1.そんなもんを自動化したら
工数がへるから残業する理由が
なくなるだろ
2.人月商売なのに何で利益減らす行為するん
3.手作り、真心込めて、おもてなし
さて、どれ？ >計算機でちゃんと計算して打ち込め
いや～、そこまで言うなら計算機なんて信じず算盤で計算しろ
が正しいでしょ w 今の時代でも、碌にパソコン使えないくせに、やたらパソコンで作業したがるおじさん・若手はいるし
ああいう人たちが「下手にパソコン使わせると遅くなる」ってイメージを植え付けているのかもしれない
あとマクロ組む工程までいれると、さして時間短縮になっていない人とか 内製にせよ外注するにせよ他人にマクロ作ってもらうとなると時間も経費もかかるし、改修も容易じゃないからな
多少時間かかってもマクロを自分で組めた方が楽なのは間違いないけどね
管理職のくせにマクロの効用を理解できないような奴が、マクロ実装にかかる時間だけを見て手間がかかるからやめろとか言ってくることが結構あるからな 結構あるってことはみんなお前のマクロにはもう懲り懲りなんじゃないの？ エクセルマクロだと正しいか間違ってるかの判断が（上司にとって）出来ない
上司が使えないプログラミング言語は禁止ねっていうのと同じ種類の問題だと思うよ マクロは自分用だとすごく便利
他人が作りっぱなしにしたマクロをだましだまし使うのは地獄 エラーハンドリング全然されず
Sheet の初期化(単なるクリア)も
人間がやらないとダメな仕様
のマクロに機能拡張しろってのが
あったけどとりあえず5分で
チンカスであることを強調した上でC#で作り直した思い出 自分だけでこっそり使うんならいざしらず、
他人に使ってもらいたいんなら
使ってもらえるような作り方&ドキュメント整備しろってことだな エクセルは説明書ページを簡単に添付できる（シート追加するだけ）のがいい
EXE形式だとreadme.txtやHELPなんて読んでもらえないしな
まぁ、エクセルで説明ページがあってもよまないやつがおおいから結局コメント機能使いまくりだったり
画面上に説明書いちゃうけど もっぱらpowershellやvbscriptで書いてる
元のワークブック汚さずに済むし >>281
ちなみにどう使い分けしてる？
powershell 使い始めたんだけど思うような動作しなくて、結局vbsでいいやってなっちゃう。 >>281
ちなみにどう使い分けしてる？
powershell 使い始めたんだけど思うような動作しなくて、結局vbsでいいやってなっちゃう。 デバッグ中に別シートに集計中なのに
元データのシートを破壊してしまって涙目
アクティブシートのカレントリージョンをクリアで綺麗サッパリ(´Д｀) マクロはおめえのオモチャじゃねえんだよ
これに懲りたらスッパリとマクロから足を洗うんだな マクロは個人のオモチャでいいだろう
性能や信頼性は作り手による >>286
何開き直っとんねんお前もマクロいじるの禁止な 糞マクロでもいいじゃない
だって人間だもの
げいつ >>287
マクロは個人のものだと言っとるだろうが
他人に直接影響を及ぼさないんだから禁止もへったくれもない エクセルVBAのグラフの範囲指定Rows.Countで困っております。
お力添え頂きたくお願いしたいです。
A1からD600まで範囲指定して、K1からK600 までをVBAで範囲指定したいのですが、
なお601行目はすべて空白で、602行目には合計数が入っています。
600行目というのは日によって異なり入力値の最大数がばらばらです。
手動でやる際は A1をターゲットし、Shift →×4、CTRL＋SHIFT＋↓、
CTRLを押しながらK1をターゲットCTRL＋SHIFT＋↓で選択。
これをVBAに置き換えるために行ったのですが
某サイトで
Set Target = Union(Range(Range("A1"), Cells(Rows.Count, 4).End(xlUp)), _
Range(Range("K1"), Cells(Rows.Count, 11).End(xlUp)))
というような指定方法がありましたので行ってみましたが
合計数が入力されている602行目が範囲に含まれており困っております。
A1:D600(空白まで),K1:K600(空白まで) というように指定するにはどのようにすればよいでしょか。 >>282-283
>>281じゃないけど俺は新規作成はPowerShellに一本化した
まだちょっとはあ？ってなる挙動があるけどやりたいことはだいたいできてる >>290
Range("a1").CurrentRegion
Range("k1").CurrentRegion
でやってみよう >>290
言い忘れたけど
A～DとKが表としてつながってない想定ね
一つの表からなら
Range(Range("a1"), Range("d1").End(xlDown))
Range(Range("k1"), Range("k1").End(xlDown))
でそれぞれの範囲をとれる >>293
ありがとうございます。
2つ目に書いていただいた表が一個の場合を想定しています。
Rangeで行う事が出来るのですね。
Cells(Rows.Count, 4).End(xlUp)をxlDwonに
変えてもダメだったのでかなり絶望してました。
A1～A20とかに書かれている条件でそれが含まれていたら↓を検索するとかも
これでできそうな気がしてきました。
ありがとうございました。 すみません、あまり仕組みがよくわからず
こちらに質問致します。
やり方の案内でも助かります。
Excelかtxtのデータをシート上に配置したボタンワンクリックで
→MySQLにアップデートって出来ますか？
バーコードリーダー等のlogファイル
xls,csv,txt
―――A――――B
1、barcode 棚卸数
2、9876543, 21
3、1234567，89
MySQLデータベース
1、メーカ、型番、コード、品名、在庫数
2、Pansomy,THE123,9876543,USOメモリー,3
3、Hitasun,END987,1234567,モバテリー,7
在庫数を棚卸数で上書きが出来れば良いです。
よろしくお願いいたします。 >>291
なるほど。
VBSはドラッグ&ドロップが使いやすいが終息方向。
VBAは開発しやすいがあくまでオフィスの製品ありき。
pythonは流行ってるが会社のマシンにデフォで入ってない。
導入のしやすさ、汎用性からpowershell かなあ。ただ動作が遅いのが気になるけど アレを使っちゃう派
誤取得する場合があるって聞くけどまだ未経験 『棚卸数の入力作業vba』（Masayo） エクセル Excel [エクセルの学校]
www.excel.studio-kazu.jp
こちらのサイトを参考に
http://www.excel.studio-kazu.jp/kw/20111019173742.html
VBAのマクロをボタン登録で
エクセルのbook 内のsheet2セルからsheet1に書き込む事は出来るのですが、
powershell?が何なのか知りませんがそれで可能ならそれでも良いです。
ボタンを押すとインポートファイルを指定できる物でも良いのですが、
ただ、PhpMyAdminからの操作が素人には難しくてめんどうなので、
ログファイルをドラッグドロップでアップデートかボタン１つでやれないかと思います。
VBSや.hta(html application)でMySQLにアクセスする方法とかでも良いです。
ログファイル名とフォルダが固定ならスケジュール自動化も視野にしたいです。
よろしくお願いいたします。 >>300
ODBCを使うんですか？ありがとうございます。
具体的な使い方がわからないので、ご提示のサイトで勉強したいと思います。
＞ySQLコマンドラインツール
マウスかタッチパネル操作のみのおじいちゃんでも出来ますか？ >>300
ご紹介頂いたページを見てみました。
誠に申し訳ないのですが
ログのcsvファイルを新規でMySQLのテーブルに入れたい訳ではなく、
ExcelにMySQLからデータをダウンロードしたいのでも有りません。
確かにsheet1にMySQLからのダウンロードは可能です、sheet2にcsvのファイルも準備できます。
そして、先のVBAを用いてsheet2からsheet1の書き換えと消し込みが出来ましたが、
sheet1の書き換え後のデータをMySQLに戻すには
一旦csvで保存して、MySQLのテーブルをdrop かtruncate してから
書き換え保存したcsvをMySQLにインポートするしか無いのでしょうか？ >>297
ケースバイケース
空白もカウントしたいかどうかで方法を変える >>297
ケースバイケース
特に他人が作った表にマクロ仕込むときはそう
エクセルスキルがない奴が作るデータは表の配置が本当に酷いから、目で確認しないと意図した通りのセルにアクセスできないことが多い 先生、どうかご指導お願いします。
得意先名が記載してある列に対して
営業所や支店を削除して整理したいと考えてます
下記はAAA㈱〇〇営業所という社名、営業署名を
AAA㈱と置き換えようとして作成しているマクロです
下記のようにワイルドカードを使って置き換えようとすると
スルーされてしまって変換できません
どうしたらスルーせずに変換できるようになるでしょうか？
Dim Mrow, TOcol, i, t As Long
Dim Mrange As Range
Mrow = Cells(Rows.Count, 1).End(xlUp).Row
TOcol = Rows(1).Find(what:="得意先", lookat:=xlWhole).Column
Range(Cells(2, TOcol), Cells(Mrow, TOcol)).Select
For Each Mrange In Selection
Mrange.Value = Replace(Mrange.Value, "AAA㈱*", "AAA㈱")
Next Mrange Replaceにワイルドカードに対応した機能なんてあったっけ？ >>305
素直に置換窓でしたら？
って愚問かしら >>305
Mrange.Value = Split(Mrange.Value, "㈱")(0) & "㈱" これマクロでやる必要あるのかな、関数でやる方が早くて楽だと思うけど。 どうもありがとうございました！
関数使ってしまうと私しか操作ができないので
CSVで読み込んだらボタン一つで誰でも結果が出せるようにしたかったのです^^
どもありがとうございました！ この程度の動作でわざわざマクロ組んでボタン付けるのって無駄な気がするけど。
実際は複雑な条件分岐でもあるのかな。
大量にcsvがあるなら、一人で一括処理した方が早いし。
複数人で手分けするにしてもこれアドインで配るのか。
イマイチ作業がピンとこないな。 業務アプリからCSV吐き出してExcelでインポートする定型業務なんだろ >>305
Mrange.Replace what:="AAA㈱*", replacement:="AAA㈱" >>316
そういう感じか。
自分なら作業フォルダ決めて、そこに突っ込んだファイルでループ回して一括処理するな。
配布するならVBSでドロップしたら処理するようにしとく。
とりあえずボタンなどつけず、不可視でやった方が効率いいと思うな。 終わった問題にくどくど文句言ってんじゃねえよバカw あるURLからsendkeysでctrl＋a ,ctrl ＋cで全画面をコピーし、セルに貼り付けたいのですが、macなのでIEが使えず、困っています。
どなたかわかる方いらっしゃいますか？？ 社内で使ってるソフトがVB6で動いてるんだけど、見直すことになって中身見てるんだけど変数宣言してなかったり変数名なのかコントロールなのか分からんしGOtoで飛びまくってあっちゃこっちゃ移動して見辛いのをキレイに直す近道は何かね？ >>321
一度に一つのポイントに絞って直していくといいよ。
たとえば、コントロール名の命名規則を全体的に統一、
動作確認、変数宣言強制、動作確認、
GoToを排除（関数切り出しやループ構文）、動作確認、
で、機能・動作は同じままで中身が綺麗になったら
C#やらPythonやらに移植するのもいいかもね。 >>324
やっぱそういうかんじですよね。ゆくゆくC♯にはするつもりです。 >>328
″￥工(任意の文字列).(任意の文字列)″
って感じ？ >>321
goto文を切り離して呼び出して使おう ExcelVBAパスワード解析（解除）が出来ないプロテクトをかける方法がないかな。
※解除出来るVBAが出回ってる、、、。
ソースを見せろと上司から言われて困っています、、、。 業務として作ったものであれば上司の指示に従うべきかと >>325
その質問をここにするような馬鹿頭じゃ無理なんじゃ？ >>332
改善したことがすべて上司のおかげになってる。
上司のことを神様の存在？かな、、、。
わかりました。
ありがとうございました。
クソ会社を辞めてくる。 >>321
まずは全てのコードの先頭にOption Explicitを入れて変数宣言をきちんとするところからかな 初心者って必ず>>336言うよなw
誰に騙されとんのお前ら？w 変数宣言をし忘れることはなくてもtypoのリスクはなくならないからな。 Visual Studioにコピペして修正すると捗る
typoとかもチェックしてくれるし typoってそこまで問題になるかな。
マクロを大きな塊で作るとか、途中でテストしないとかじゃないと問題になるような発生の仕方しないと思うんだけど。 変数名ミスあるある
使ったことない関数と偶然同じ名前
よく似た変数をいくつも宣言してて、間違えたのにエラーにならない
逆に関数名をタイプミスして変数と解釈される >>341
大して問題にはならないと思うけど、多少は時間を浪費してしまうんじゃないか？ >>331
業務で作成したソースコードを隠すとか何考えてるの？？？ お昼休みや定時後サービス残業やプライベート潰して土日に頑張って作ったマクロだから他人に無償で差し出せと言われたら躊躇なく消し去る >>345
じゃあ最初から作ったとか言わずに誰にもバレないようにこっそり使っとけ
頭のおかしな部下を持つ上司に同情するわ VBAというプログラミング言語は、昔からある枯れた技術だけど
エクセルを使っていない職場は、無いと言えるぐらい普及しているから
業務のＡＩ化の流れから需要が減る可能性は少ないだろうなあ >>348
エクセルよりお前の需要の心配しろよ能天気さんw パソコンによって紙が減るって言われていたのに印刷物が増えたように、
AI化するとカバー出来る業務が増えた結果、逆に忙しくなりそう。 パソコンによって誰でも気軽に印刷物を作成できるようになった
だから紙の書類は増えたんだけど
それ以上に母数となる書類は増えてるんだよ
印刷されてない電子書類の数も含めたら、やっぱり紙の書類の割合は減ってる Excel2013
デザインモードってONでもOFFでもどこが変わったのかわからないんだけど、
何が違うんですか？
検索したら、OFFの時はオブジェクトを右クリックしてもコード編集ができないとか書いてあって、
そんなことないんだけど！ >>355
いいか、よく聞けよ
世の中には2種類のオブジェクトがあるんだ
フォームコントロールと、ActiveXコントロールだ >>356
知ってる。ActiveXコントロールの方は一切使わないんだよね。 UseｒFormのオプションボタンが2つ(AとB)あったとします。
あるFrameのvisibleをFalseにしておいて、Bが選択された時だけTrueにしたいのですが、
①Bを選択→Frameが表示される
②Aを選択
③Bの選択は解除されるが、Frameが表示されたまま
になってしまいました。
Bの選択が解除されるのを認識させるにはどうしたらよいでしょうか？ Bが選択された時だけTrueにしたのなら
つぎは
Aが選択された時にバルスにしたらいいんじゃないかい？ >>359
ありがとうございます。
ボタンは今後増やす予定で、
たとえば、ボタンCを追加した場合は、
A_Clickと同様にC_ClickにもBのバルスを追加する必要がありますよね。
ボタンを追加する度に同じ処理を入れるのはイマイチかと思いましたが、
このぐらいの1行で済む処理なら問題なしおですかね。 ■ このスレッドは過去ログ倉庫に格納されています
