Excel VBA 質問スレ Part52

**デフォルトの名無しさん** · 2018/02/23(金) 08:52:34.86

｢プログラミング環境なんて数年おきに改訂され進化していくもの｣
という感覚は正しい｡
しかしあたりまえが通じない世界もある｡
それが、「廃れた開発環境」と「リソースの足りないプロジェクト」だ。

**デフォルトの名無しさん** · 2018/02/23(金) 12:15:48.66

どしたの急に？

**デフォルトの名無しさん** · 2018/02/23(金) 12:32:39.13

Excel2010以降で、コンテキストメニュー追加するとき
commandbars().add
でコメントを右クリックした時のメニューは（）の中は何になりますか？

**デフォルトの名無しさん** · 2018/02/23(金) 22:05:45.08

コメントを右クリックの意味がわからん

**デフォルトの名無しさん** · 2018/02/23(金) 22:09:49.60

まずコメントって知ってるか？

**デフォルトの名無しさん** · 2018/02/23(金) 22:21:14.89

日本語崩壊しててワロタ

**デフォルトの名無しさん** · 2018/02/24(土) 00:24:56.44

ひょっとして、無指定だと何のショートカットキーが表示されるか(「開く(O)」みたいなの)を聞きたいのではなく(表示されないやろ…てか試せばよくね？と思ってた)、
commandbarsの引数に何を指定すればVBAのエディタのコメントを右クリックしたときのコンテキストメニューに項目を追加できますか？っていう質問なのか？
何の質問をしているのかまったく分からなかったが、がんばって一番意味が通りそうな解釈をしてみた

**デフォルトの名無しさん** · 2018/02/24(土) 00:54:26.24

よく頑張った、もう少しで賞を差し上げます

**デフォルトの名無しさん** · 2018/02/24(土) 03:12:36.02

どなたか知恵をください
日本語IMEの変換候補がドロップダウンリストで出てくるアレを
区切り記号入れて（カンマがいいかな）
一つのセルに列挙できませんかね？
例えばA1に半角英で「yama」と入力したら
B1に「山,ヤマ,やま,耶麻,耶摩,八馬,矢間」みたいな

**デフォルトの名無しさん** · 2018/02/24(土) 03:35:37.11

>>211
できる
基本的にはImmGetCandidateListかImmGetConversionListを使う
IMEの制御はドロ沼だからあんまり完璧を求めないようにほどほどにな

**デフォルトの名無しさん** · 2018/02/24(土) 04:09:09.96

>>212
即レスありがと！
そこのリファレンス読んでくるわ！

**デフォルトの名無しさん** · 2018/02/24(土) 23:15:34.68

MACでエクセルを使用して、ボタンクリックでphpを実行させてデータを取得してエクセル
に出力する方法を教えて下さい。

**デフォルトの名無しさん** · 2018/02/25(日) 02:02:21.78

モスじゃだめなのかい？

**デフォルトの名無しさん** · 2018/02/25(日) 07:39:33.73

寒っ

**デフォルトの名無しさん** · 2018/02/25(日) 10:24:12.12

今日は暖かいよ

**デフォルトの名無しさん** · 2018/02/25(日) 10:56:06.58

寒っ寒っ！！

**デフォルトの名無しさん** · 2018/02/25(日) 11:00:26.62

そだねー

**デフォルトの名無しさん** · 2018/02/25(日) 17:02:52.72

ここはエクセルの質問スレちゃうの？、あほばっかだな。

**デフォルトの名無しさん** · 2018/02/25(日) 19:21:52.64

ｿﾀﾞﾈｰ

**デフォルトの名無しさん** · 2018/02/25(日) 19:54:07.26

>>220
スレタイ読めが判ると思うが

**デフォルトの名無しさん** · 2018/02/25(日) 20:22:35.82

１０万件くらいのリストを作ってそれをある規則で並べかえたいんだけど、一番高速で行うにはどういう手法がありますか？

**デフォルトの名無しさん** · 2018/02/25(日) 20:39:07.10

お前がやらずに、出来る奴に
キチンと敬意と対価を払って
やってもらう
ノウとかハウとかは後で身に付けたらいい

**デフォルトの名無しさん** · 2018/02/25(日) 20:53:22.41

>>223
ggrks ([g]oogleでし[r]べてみた[k]っかです[s]んこうにしてね)

http://excel-ubara.com/excelvba4/EXCEL270.html

**デフォルトの名無しさん** · 2018/02/26(月) 07:46:27.51

>>225
すみません
ありがとうございました

**デフォルトの名無しさん** · 2018/02/26(月) 10:23:38.67

>>226
いいってことよ(´・ω・｀)b

**デフォルトの名無しさん** · 2018/02/26(月) 17:52:12.51

Ruby なら、VBA より速いし、そんなに難しくない

**デフォルトの名無しさん** · 2018/02/26(月) 18:56:12.78

Worksheet_SelectionChangeのコード中に､
If Target.Count=1 then Exit Sub
のところで今日急にオーバーフローのエラーが出るようになって
ちょっとググったらCountLargeというのがあることを知ってとりあえず解決したんだけど
一つのセルしか選択肢てないのに・・・
ウォッチ式にTargetを追加して確認したらTargetの中にItemはひとつしかないのにTarget.Countはオーバーフローってなんだこれ？

**デフォルトの名無しさん** · 2018/02/27(火) 23:52:36.36

コピー禁止

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.CutCopyMode = False

End Sub

コピー→別のファイル（Excelなど）に貼り付けが出来てしまう

コピー→マウスを動かすだけでキャンセルするようなVBAはないよね、、、。

**デフォルトの名無しさん** · 2018/02/28(水) 01:32:02.58

APIでクリップボード自体をクリアしたらダメかね

**デフォルトの名無しさん** · 2018/02/28(水) 01:36:53.98

>>209
コメントアウトのコメントじゃなくてセルに付与するコメントのことだぞ

**デフォルトの名無しさん** · 2018/02/28(水) 05:54:26.44

フォルダに大量に入ってる動画ファイルの名前と容量を抽出してエクセルファイルに出力したり出来ませんか？

**デフォルトの名無しさん** · 2018/02/28(水) 06:16:52.08

できらぁ!!

**デフォルトの名無しさん** · 2018/02/28(水) 07:17:25.76

VBAにできないことなんてないぞ

**デフォルトの名無しさん** · 2018/02/28(水) 07:39:47.81

え！！VBAでファイルの名前と容量の抽出を！？

**デフォルトの名無しさん** · 2018/02/28(水) 07:42:05.80

とりあえずファイル操作は全部FSO使っておけば何とでもなる

**デフォルトの名無しさん** · 2018/02/28(水) 08:04:41.58

ちょっと横からで申し訳ないです
>>233に似たようなことをFSOでフォルダ内のファイルを数万件取得していて、foreachで一つずつ配列にいれてるんだけどかなり時間がかかる。。一括で取得する方法とかありますかね？

**デフォルトの名無しさん** · 2018/02/28(水) 08:08:27.77

>>238
配列に入れないで処理する方法を考える

**デフォルトの名無しさん** · 2018/02/28(水) 08:11:14.51

エロ動画フォルダに入ってるファイルサイズ取得して一致したらかたっぽを削除するマクロ作ったわ

**デフォルトの名無しさん** · 2018/02/28(水) 08:23:05.93

そんなもんフリーソフト落としてくるだけで出来るわ。
一覧表に起こしてアレコレしたいときに捗る

**デフォルトの名無しさん** · 2018/02/28(水) 09:22:10.92

朝っぱらから元気で草

**デフォルトの名無しさん** · 2018/02/28(水) 18:29:56.39

>>233
エロ動画を大量に集めすぎてどこに何があるか微妙にすぐ見つけれなくなった俺と同じ悩みなんだろうか

**デフォルトの名無しさん** · 2018/02/28(水) 19:15:28.02

Function func(ByVal arg) As int
処理
End Function
Dim var As Function
var = address(func)
Call var(argument)
みたいに、関数へのポインタでコールするのはどう書くの。

**デフォルトの名無しさん** · 2018/02/28(水) 20:22:58.19

>>244
Dim var As Object
Set var = Ref(func)
Call ByRef var(argument)

**デフォルトの名無しさん** · 2018/02/28(水) 22:29:15.05

PowerShell なら以下で、ファイル名・サイズを、カンマ区切りで表示できる

cd で、そのフォルダへ移動してから、
ls | %{ $_.Name + "," + $_.Length }

結果をファイルに出力するなら、
ls | %{ $_.Name + "," + $_.Length } > ファイル名

出力
test01.rb,341
test02.rb,216
test03.rb,453

**デフォルトの名無しさん** · 2018/03/01(木) 22:00:03.32

エクセルに出力できとらんやんw

**デフォルトの名無しさん** · 2018/03/01(木) 22:10:39.18

結果をファイルに出力するなら、
ls | %{ $_.Name + "," + $_.Length } > ファイル名.csv

**デフォルトの名無しさん** · 2018/03/01(木) 22:22:42.13

でたwwwエクセルとcsvの区別がついてない奴wwwww

**デフォルトの名無しさん** · 2018/03/02(金) 07:10:15.29

ブックオープン時にフォームだけ開きたい場合ってどうしたらいい？

**デフォルトの名無しさん** · 2018/03/02(金) 07:17:55.07

>>250
[表示]-[ウィンドウ]-[非表示]

**デフォルトの名無しさん** · 2018/03/02(金) 08:53:24.56

クラス継承前提で設計してしまったのだが、どうしてくれるの。

**デフォルトの名無しさん** · 2018/03/02(金) 09:38:57.79

お前がマヌケだったって事だろ。
作り直せ

**デフォルトの名無しさん** · 2018/03/02(金) 12:05:11.13

>>252
ポリモーフィズムはImplementsがあるから、あとはどうにでも工夫できるやろ

**デフォルトの名無しさん** · 2018/03/02(金) 19:00:30.03

>>252
コピペは攻守ともに最強の継承やぞ

**デフォルトの名無しさん** · 2018/03/02(金) 21:57:53.05

スーパークラス作ってそれをオーバーライドしてけば省力化できると思ったのかな？

**デフォルトの名無しさん** · 2018/03/02(金) 22:07:46.54

省力化は委譲で代替できる

**デフォルトの名無しさん** · 2018/03/02(金) 22:19:05.00

え？委譲で省力化を！？

**デフォルトの名無しさん** · 2018/03/03(土) 08:40:25.03

正直VBAのクラスは他のObject指向言語に比べるとその辺見劣りするのは仕方ない。元々構造化言語だし。

そこをどうするかを考えて行くのが醍醐味でもあるんだけど
やっぱり移譲にも限界があって例えばフォームを継承してもっと機能を追加したり変更したりしたいとき、
.Net系であれば単純に継承してメソッドやプロパティを追加やオーバーライドすれば良いものが、
移譲の場合は全て呼出し口を設定しなければならなかったりするので
こういう場合は余り現実的とは言えない。

移譲や継承を使うのとはまた違った方法を考える必要があるんだけど
それを考えるのもまた醍醐味。

**デフォルトの名無しさん** · 2018/03/03(土) 09:00:54.41

>醍醐味
ﾌﾟｯｸｽｸｽ

**デフォルトの名無しさん** · 2018/03/03(土) 09:05:29.61

他に現実的な解法が無いからVBA使っているだけで、誰も好んで使っているわけではないんだけど、
かといって自分の無能を全てVBAのせいにしている発言を見るとイラッとするのは確か

**デフォルトの名無しさん** · 2018/03/03(土) 11:49:03.81

>>260 ☆ミ DAIGOアジ ☆ミ

**デフォルトの名無しさん** · 2018/03/03(土) 12:45:47.64

完全に割り切って ByVal As Object または ByVal As Variant で委譲オンリー

**デフォルトの名無しさん** · 2018/03/03(土) 14:19:14.14

間違えた
ByVal As Object または ByRef As Variant

**デフォルトの名無しさん** · 2018/03/04(日) 00:55:22.93

それのどこが醍醐味なの？

**デフォルトの名無しさん** · 2018/03/04(日) 09:54:22.41

エクセルのマクロちょいちょいと組み立てて自動化させたら

ズルをするな、計算機でちゃんと計算して打ち込め

って怒られた

意味わかんねー

**デフォルトの名無しさん** · 2018/03/04(日) 09:58:17.84

計算機

**デフォルトの名無しさん** · 2018/03/04(日) 10:02:50.11

パソコンが登場し始めた前世紀になら居ただろうけど、このご時世だと信じがたいわな

**デフォルトの名無しさん** · 2018/03/04(日) 10:39:41.20

その手の輩は

1.そんなもんを自動化したら
　工数がへるから残業する理由が
　なくなるだろ

2.人月商売なのに何で利益減らす行為するん

3.手作り、真心込めて、おもてなし

さて、どれ？

**デフォルトの名無しさん** · 2018/03/04(日) 10:51:00.13

単なるバカ

**デフォルトの名無しさん** · 2018/03/04(日) 10:55:35.55

>計算機でちゃんと計算して打ち込め

いや～、そこまで言うなら計算機なんて信じず算盤で計算しろ
が正しいでしょ w

**デフォルトの名無しさん** · 2018/03/04(日) 11:30:31.21

今の時代でも、碌にパソコン使えないくせに、やたらパソコンで作業したがるおじさん・若手はいるし
ああいう人たちが「下手にパソコン使わせると遅くなる」ってイメージを植え付けているのかもしれない

あとマクロ組む工程までいれると、さして時間短縮になっていない人とか

**デフォルトの名無しさん** · 2018/03/04(日) 12:45:40.43

自己満なんやからええやんけ

**デフォルトの名無しさん** · 2018/03/04(日) 14:52:14.27

内製にせよ外注するにせよ他人にマクロ作ってもらうとなると時間も経費もかかるし、改修も容易じゃないからな
多少時間かかってもマクロを自分で組めた方が楽なのは間違いないけどね
管理職のくせにマクロの効用を理解できないような奴が、マクロ実装にかかる時間だけを見て手間がかかるからやめろとか言ってくることが結構あるからな

**デフォルトの名無しさん** · 2018/03/04(日) 15:51:22.29

結構あるってことはみんなお前のマクロにはもう懲り懲りなんじゃないの？

**デフォルトの名無しさん** · 2018/03/04(日) 15:59:46.94

エクセルマクロだと正しいか間違ってるかの判断が（上司にとって）出来ない
上司が使えないプログラミング言語は禁止ねっていうのと同じ種類の問題だと思うよ

**デフォルトの名無しさん** · 2018/03/04(日) 17:55:29.98

マクロは自分用だとすごく便利
他人が作りっぱなしにしたマクロをだましだまし使うのは地獄

**デフォルトの名無しさん** · 2018/03/04(日) 18:24:28.65

エラーハンドリング全然されず
Sheet の初期化(単なるクリア)も
人間がやらないとダメな仕様
のマクロに機能拡張しろってのが
あったけどとりあえず5分で
チンカスであることを強調した上でC#で作り直した思い出

**デフォルトの名無しさん** · 2018/03/04(日) 19:26:15.30

自分だけでこっそり使うんならいざしらず、
他人に使ってもらいたいんなら
使ってもらえるような作り方&ドキュメント整備しろってことだな

**デフォルトの名無しさん** · 2018/03/04(日) 20:05:19.79

エクセルは説明書ページを簡単に添付できる（シート追加するだけ）のがいい
EXE形式だとreadme.txtやHELPなんて読んでもらえないしな
まぁ、エクセルで説明ページがあってもよまないやつがおおいから結局コメント機能使いまくりだったり
画面上に説明書いちゃうけど

**デフォルトの名無しさん** · 2018/03/04(日) 20:22:52.23

もっぱらpowershellやvbscriptで書いてる
元のワークブック汚さずに済むし

**デフォルトの名無しさん** · 2018/03/04(日) 22:51:58.52

>>281
ちなみにどう使い分けしてる？
powershell 使い始めたんだけど思うような動作しなくて、結局vbsでいいやってなっちゃう。

**デフォルトの名無しさん** · 2018/03/04(日) 22:53:07.28

>>281
ちなみにどう使い分けしてる？
powershell 使い始めたんだけど思うような動作しなくて、結局vbsでいいやってなっちゃう。

**デフォルトの名無しさん** · 2018/03/04(日) 23:02:24.00

デバッグ中に別シートに集計中なのに
元データのシートを破壊してしまって涙目
アクティブシートのカレントリージョンをクリアで綺麗サッパリ(´Д｀)

**デフォルトの名無しさん** · 2018/03/04(日) 23:41:13.27

マクロはおめえのオモチャじゃねえんだよ
これに懲りたらスッパリとマクロから足を洗うんだな

**デフォルトの名無しさん** · 2018/03/05(月) 10:31:45.26

マクロは個人のオモチャでいいだろう
性能や信頼性は作り手による

**デフォルトの名無しさん** · 2018/03/05(月) 12:18:46.09

>>286
何開き直っとんねんお前もマクロいじるの禁止な

**デフォルトの名無しさん** · 2018/03/05(月) 13:06:15.33

糞マクロでもいいじゃない
だって人間だもの

げいつ

**デフォルトの名無しさん** · 2018/03/05(月) 16:20:35.95

>>287
マクロは個人のものだと言っとるだろうが
他人に直接影響を及ぼさないんだから禁止もへったくれもない

**デフォルトの名無しさん** · 2018/03/05(月) 19:21:30.95

エクセル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(空白まで) というように指定するにはどのようにすればよいでしょか。

**デフォルトの名無しさん** · 2018/03/05(月) 19:32:56.50

>>282-283
>>281じゃないけど俺は新規作成はPowerShellに一本化した
まだちょっとはあ？ってなる挙動があるけどやりたいことはだいたいできてる

**デフォルトの名無しさん** · 2018/03/05(月) 21:32:20.85

>>290
Range("a1").CurrentRegion
Range("k1").CurrentRegion
でやってみよう

**デフォルトの名無しさん** · 2018/03/05(月) 21:48:18.83

>>290
言い忘れたけど
A～DとKが表としてつながってない想定ね

一つの表からなら
Range(Range("a1"), Range("d1").End(xlDown))
Range(Range("k1"), Range("k1").End(xlDown))
でそれぞれの範囲をとれる

**デフォルトの名無しさん** · 2018/03/05(月) 22:25:16.54

>>293
ありがとうございます。
2つ目に書いていただいた表が一個の場合を想定しています。
Rangeで行う事が出来るのですね。
Cells(Rows.Count, 4).End(xlUp)をxlDwonに
変えてもダメだったのでかなり絶望してました。

A1～A20とかに書かれている条件でそれが含まれていたら↓を検索するとかも
これでできそうな気がしてきました。
ありがとうございました。

**Excel→MySQL** · 2018/03/06(火) 01:06:36.39

すみません、あまり仕組みがよくわからず
こちらに質問致します。
やり方の案内でも助かります。

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

在庫数を棚卸数で上書きが出来れば良いです。
よろしくお願いいたします。

**デフォルトの名無しさん** · 2018/03/06(火) 07:49:34.86

>>291
なるほど。
VBSはドラッグ&ドロップが使いやすいが終息方向。
VBAは開発しやすいがあくまでオフィスの製品ありき。
pythonは流行ってるが会社のマシンにデフォで入ってない。

導入のしやすさ、汎用性からpowershell かなあ。ただ動作が遅いのが気になるけど

**デフォルトの名無しさん** · 2018/03/06(火) 08:23:29.61

最終行取得する時って、おまえらどっち派？

**デフォルトの名無しさん** · 2018/03/06(火) 08:25:04.77

アレを使っちゃう派
誤取得する場合があるって聞くけどまだ未経験

**295** · 2018/03/06(火) 08:26:39.35

『棚卸数の入力作業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にアクセスする方法とかでも良いです。

ログファイル名とフォルダが固定ならスケジュール自動化も視野にしたいです。

よろしくお願いいたします。

**デフォルトの名無しさん** · 2018/03/06(火) 08:31:48.14

>>295
ODBCの存在を知らないとかそういう話？
https://qiita.com/msano/items/fdcc0cbb8e41b988ce2d

もしくはySQLコマンドラインツールでもできると思う

**295** · 2018/03/06(火) 08:50:29.68

>>300
ODBCを使うんですか？ありがとうございます。
具体的な使い方がわからないので、ご提示のサイトで勉強したいと思います。

＞ySQLコマンドラインツール
マウスかタッチパネル操作のみのおじいちゃんでも出来ますか？

**295** · 2018/03/06(火) 10:37:26.93

>>300
ご紹介頂いたページを見てみました。
誠に申し訳ないのですが
ログのcsvファイルを新規でMySQLのテーブルに入れたい訳ではなく、
ExcelにMySQLからデータをダウンロードしたいのでも有りません。
確かにsheet1にMySQLからのダウンロードは可能です、sheet2にcsvのファイルも準備できます。
そして、先のVBAを用いてsheet2からsheet1の書き換えと消し込みが出来ましたが、

sheet1の書き換え後のデータをMySQLに戻すには
一旦csvで保存して、MySQLのテーブルをdrop かtruncate してから
書き換え保存したcsvをMySQLにインポートするしか無いのでしょうか？

**デフォルトの名無しさん** · 2018/03/06(火) 10:58:38.66

>>297
ケースバイケース
空白もカウントしたいかどうかで方法を変える

**デフォルトの名無しさん** · 2018/03/06(火) 12:48:25.53

>>297
ケースバイケース
特に他人が作った表にマクロ仕込むときはそう
エクセルスキルがない奴が作るデータは表の配置が本当に酷いから、目で確認しないと意図した通りのセルにアクセスできないことが多い

**デフォルトの名無しさん** · 2018/03/06(火) 15:34:28.04

先生、どうかご指導お願いします。
得意先名が記載してある列に対して
営業所や支店を削除して整理したいと考えてます

下記は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

**デフォルトの名無しさん** · 2018/03/06(火) 15:40:08.21

Replaceにワイルドカードに対応した機能なんてあったっけ？

**デフォルトの名無しさん** · 2018/03/06(火) 16:55:46.30

>>305
素直に置換窓でしたら？
って愚問かしら

**デフォルトの名無しさん** · 2018/03/06(火) 17:00:18.43

>>305
Mrange.Value = Split(Mrange.Value, "㈱")(0) & "㈱"

**デフォルトの名無しさん** · 2018/03/06(火) 17:10:48.55

>>308
楽したいときはそれよくやる

**デフォルトの名無しさん** · 2018/03/06(火) 17:44:23.62

これマクロでやる必要あるのかな、関数でやる方が早くて楽だと思うけど。

**デフォルトの名無しさん** · 2018/03/06(火) 18:07:44.86

ここで詳しく説明したくない何かがあるのさきっと

**デフォルトの名無しさん** · 2018/03/06(火) 19:04:37.73

どうもありがとうございました！

関数使ってしまうと私しか操作ができないので
CSVで読み込んだらボタン一つで誰でも結果が出せるようにしたかったのです^^
どもありがとうございました！

**デフォルトの名無しさん** · 2018/03/07(水) 01:38:36.16

これInStrとLeft使えば済む話だろ

**デフォルトの名無しさん** · 2018/03/07(水) 07:52:35.02

この程度の動作でわざわざマクロ組んでボタン付けるのって無駄な気がするけど。
実際は複雑な条件分岐でもあるのかな。
大量にcsvがあるなら、一人で一括処理した方が早いし。
複数人で手分けするにしてもこれアドインで配るのか。
イマイチ作業がピンとこないな。

**デフォルトの名無しさん** · 2018/03/07(水) 07:57:02.27

頭が悪いだけだから気にすんな

**デフォルトの名無しさん** · 2018/03/07(水) 08:25:40.94

業務アプリからCSV吐き出してExcelでインポートする定型業務なんだろ

**デフォルトの名無しさん** · 2018/03/07(水) 12:27:05.35

>>305
Mrange.Replace what:="AAA㈱*", replacement:="AAA㈱"

**デフォルトの名無しさん** · 2018/03/07(水) 18:33:39.24

>>316
そういう感じか。
自分なら作業フォルダ決めて、そこに突っ込んだファイルでループ回して一括処理するな。
配布するならVBSでドロップしたら処理するようにしとく。
とりあえずボタンなどつけず、不可視でやった方が効率いいと思うな。

**デフォルトの名無しさん** · 2018/03/07(水) 20:37:03.79

終わった問題にくどくど文句言ってんじゃねえよバカw

**デフォルトの名無しさん** · 2018/03/09(金) 05:37:29.78

あるURLからsendkeysでctrl＋a ,ctrl ＋cで全画面をコピーし、セルに貼り付けたいのですが、macなのでIEが使えず、困っています。
どなたかわかる方いらっしゃいますか？？

**デフォルトの名無しさん** · 2018/03/09(金) 07:17:33.28

社内で使ってるソフトがVB6で動いてるんだけど、見直すことになって中身見てるんだけど変数宣言してなかったり変数名なのかコントロールなのか分からんしGOtoで飛びまくってあっちゃこっちゃ移動して見辛いのをキレイに直す近道は何かね？

**デフォルトの名無しさん** · 2018/03/09(金) 07:53:39.76

全面作り直し

**デフォルトの名無しさん** · 2018/03/09(金) 08:09:53.68

ついでにc#にでも書き換えたら

**デフォルトの名無しさん** · 2018/03/09(金) 08:21:10.99

>>321
一度に一つのポイントに絞って直していくといいよ。
たとえば、コントロール名の命名規則を全体的に統一、
動作確認、変数宣言強制、動作確認、
GoToを排除（関数切り出しやループ構文）、動作確認、
で、機能・動作は同じままで中身が綺麗になったら
C#やらPythonやらに移植するのもいいかもね。

**デフォルトの名無しさん** · 2018/03/09(金) 10:05:38.77

>>324
やっぱそういうかんじですよね。ゆくゆくC♯にはするつもりです。

**デフォルトの名無しさん** · 2018/03/09(金) 12:03:12.65

普通放置するだろ

**デフォルトの名無しさん** · 2018/03/09(金) 12:07:04.28

″￥工＊.＊″

これどういう意味？

**デフォルトの名無しさん** · 2018/03/09(金) 12:10:16.16

>>327
ワイルドカード文字列
で、ググれ

**デフォルトの名無しさん** · 2018/03/09(金) 12:43:24.23

>>328
″￥工(任意の文字列).(任意の文字列)″

って感じ？

**デフォルトの名無しさん** · 2018/03/09(金) 12:54:06.72

>>321
goto文を切り離して呼び出して使おう

**デフォルトの名無しさん** · 2018/03/09(金) 13:21:58.26

ExcelVBAパスワード解析（解除）が出来ないプロテクトをかける方法がないかな。
※解除出来るVBAが出回ってる、、、。

ソースを見せろと上司から言われて困っています、、、。

**デフォルトの名無しさん** · 2018/03/09(金) 13:46:20.12

業務として作ったものであれば上司の指示に従うべきかと

**デフォルトの名無しさん** · 2018/03/09(金) 15:21:24.04

>>325
その質問をここにするような馬鹿頭じゃ無理なんじゃ？

**デフォルトの名無しさん** · 2018/03/09(金) 17:46:42.77

>>332
改善したことがすべて上司のおかげになってる。
上司のことを神様の存在？かな、、、。
わかりました。
ありがとうございました。
クソ会社を辞めてくる。

**デフォルトの名無しさん** · 2018/03/09(金) 17:56:22.24

つまり食い物にされている、と？

**デフォルトの名無しさん** · 2018/03/09(金) 17:58:04.10

>>321
まずは全てのコードの先頭にOption Explicitを入れて変数宣言をきちんとするところからかな

**デフォルトの名無しさん** · 2018/03/09(金) 19:01:08.54

初心者って必ず>>336言うよなw
誰に騙されとんのお前ら？w

**デフォルトの名無しさん** · 2018/03/09(金) 19:33:16.36

自称玄人 w

**デフォルトの名無しさん** · 2018/03/09(金) 20:27:41.68

変数宣言をし忘れることはなくてもtypoのリスクはなくならないからな。

**デフォルトの名無しさん** · 2018/03/09(金) 20:50:54.71

Visual Studioにコピペして修正すると捗る
typoとかもチェックしてくれるし

**デフォルトの名無しさん** · 2018/03/09(金) 21:09:01.46

typoってそこまで問題になるかな。
マクロを大きな塊で作るとか、途中でテストしないとかじゃないと問題になるような発生の仕方しないと思うんだけど。

**デフォルトの名無しさん** · 2018/03/09(金) 21:27:32.88

変数名ミスあるある

使ったことない関数と偶然同じ名前
よく似た変数をいくつも宣言してて、間違えたのにエラーにならない
逆に関数名をタイプミスして変数と解釈される

**デフォルトの名無しさん** · 2018/03/09(金) 21:35:07.60

>>341
大して問題にはならないと思うけど、多少は時間を浪費してしまうんじゃないか？

**デフォルトの名無しさん** · 2018/03/09(金) 22:09:00.28

>>331
業務で作成したソースコードを隠すとか何考えてるの？？？

**デフォルトの名無しさん** · 2018/03/09(金) 23:06:24.40

お昼休みや定時後サービス残業やプライベート潰して土日に頑張って作ったマクロだから他人に無償で差し出せと言われたら躊躇なく消し去る

**デフォルトの名無しさん** · 2018/03/09(金) 23:10:16.18

>>345
じゃあ最初から作ったとか言わずに誰にもバレないようにこっそり使っとけ

頭のおかしな部下を持つ上司に同情するわ

**デフォルトの名無しさん** · 2018/03/09(金) 23:30:45.58

ｿﾀﾞﾈｰ

**デフォルトの名無しさん** · 2018/03/09(金) 23:48:40.84

VBAというプログラミング言語は、昔からある枯れた技術だけど
エクセルを使っていない職場は、無いと言えるぐらい普及しているから
業務のＡＩ化の流れから需要が減る可能性は少ないだろうなあ

**デフォルトの名無しさん** · 2018/03/10(土) 00:01:14.03

>>348
エクセルよりお前の需要の心配しろよ能天気さんw

**デフォルトの名無しさん** · 2018/03/10(土) 00:38:30.02

パソコンによって紙が減るって言われていたのに印刷物が増えたように、
AI化するとカバー出来る業務が増えた結果、逆に忙しくなりそう。

**デフォルトの名無しさん** · 2018/03/10(土) 02:32:10.79

超有能になったカイルが復活するか

**デフォルトの名無しさん** · 2018/03/10(土) 09:24:51.95

パソコンによって誰でも気軽に印刷物を作成できるようになった
だから紙の書類は増えたんだけど
それ以上に母数となる書類は増えてるんだよ
印刷されてない電子書類の数も含めたら、やっぱり紙の書類の割合は減ってる

**デフォルトの名無しさん** · 2018/03/10(土) 10:46:17.42

割合なんかはじめから問題になってないってゆう

**デフォルトの名無しさん** · 2018/03/10(土) 13:46:15.19

実際に減ったのは髪

**デフォルトの名無しさん** · 2018/03/10(土) 21:17:23.13

Excel2013

デザインモードってONでもOFFでもどこが変わったのかわからないんだけど、
何が違うんですか？
検索したら、OFFの時はオブジェクトを右クリックしてもコード編集ができないとか書いてあって、
そんなことないんだけど！

**デフォルトの名無しさん** · 2018/03/10(土) 21:32:40.22

>>355
いいか、よく聞けよ
世の中には2種類のオブジェクトがあるんだ
フォームコントロールと、ActiveXコントロールだ

**デフォルトの名無しさん** · 2018/03/10(土) 21:57:01.21

>>356

知ってる。ActiveXコントロールの方は一切使わないんだよね。

**デフォルトの名無しさん** · 2018/03/11(日) 09:02:12.87

UseｒFormのオプションボタンが2つ(AとB)あったとします。
あるFrameのvisibleをFalseにしておいて、Bが選択された時だけTrueにしたいのですが、
①Bを選択→Frameが表示される
②Aを選択
③Bの選択は解除されるが、Frameが表示されたまま
になってしまいました。

Bの選択が解除されるのを認識させるにはどうしたらよいでしょうか？

**デフォルトの名無しさん** · 2018/03/11(日) 09:10:40.94

Bが選択された時だけTrueにしたのなら
つぎは
Aが選択された時にバルスにしたらいいんじゃないかい？

**デフォルトの名無しさん** · 2018/03/11(日) 09:36:36.42

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

ボタンは今後増やす予定で、
たとえば、ボタンCを追加した場合は、
A_Clickと同様にC_ClickにもBのバルスを追加する必要がありますよね。
ボタンを追加する度に同じ処理を入れるのはイマイチかと思いましたが、
このぐらいの1行で済む処理なら問題なしおですかね。

**デフォルトの名無しさん** · 2018/03/11(日) 11:12:45.26

>>275
やめろー
言うんじゃない、言うなー
作らせておいてちょっとミスると「こんなんだったら手作業でも一緒だよね」とかぬかしやがって。
朝まで電卓叩いて俺徹夜しましたオレ頑張ってますアピールしてろハゲ

**デフォルトの名無しさん** · 2018/03/11(日) 12:00:11.76

ひょっとして：Changeイベント

**デフォルトの名無しさん** · 2018/03/11(日) 13:16:00.78

Option Explicit

Private Sub OptionButton1_Change()
Frame1.Visible = OptionButton1
End Sub

Private Sub UserForm_Initialize()
Frame1.Visible = OptionButton1
End Sub

**デフォルトの名無しさん** · 2018/03/11(日) 18:26:53.04

>>360
お、悪くない着眼点だねー。
都度分岐を増やすと手の入ったところは全て再テストし直しになるし
その分岐がいろんなところに発生したら結構大変だよね。

いくつか方法があるよ。

例えば処理名とTRUE、FALSEの状態をシートに記載しておいて
処理に該当する状態を取得して設定する方法。
そういうことの出来る関数を一つ作っておいて
後は処理名を引数にでも渡して状態を取得するようにすれば都度分岐が増えることは無い。

他にもボタンが増えるということは
何かしら新しい処理が増えると言うことだから
新しく増えた側の処理に状態を持たせたりとか。

まぁ、その辺のことは前にも同じようなレスがあったと思ったけど
そういうのを組み入れるのと長期的に見てそこまでのものでは無いんじゃ、と言うのが
組み入れるかどうかの判断基準になるんじゃないかな。

**デフォルトの名無しさん** · 2018/03/11(日) 20:18:26.70

長いねん

**デフォルトの名無しさん** · 2018/03/11(日) 20:52:08.82

>>364

ありがとうございます。

プログラムを考えるのが面白くなってきました。

**デフォルトの名無しさん** · 2018/03/11(日) 23:24:33.00

データのある最終行を取得したいのですが、
うまくうごきません。

Range("A10", Cells(Rows.Count, 1)).End(xlUp).Select

A10から下に続く最後の行数（データ個数15個、空白なし）を取得したいのですが、
なぜか返ってくる数は24ではなく、
1048575です。

知識が浅く、解決できません。
どなたかご助言お願いします。

**デフォルトの名無しさん** · 2018/03/11(日) 23:30:27.72

Range("A10").End(xlDown).Select

**デフォルトの名無しさん** · 2018/03/11(日) 23:47:11.35

>>368
余計なものがあったんですね。
ありがとうございます。
少し進みました。

**デフォルトの名無しさん** · 2018/03/12(月) 00:02:45.31

シート1～10まであって、a+b=cって計算を、シート1～7で行ってます
aとbは入力シートに入力した数値で、各シートが、個別に入力シートから引っ張ってきています

各シートで同じ変数を元に同じ計算をしてるが作り方って変ですかね？
なんでそんなことしてるの？というと、検討するシートを1つ作って、そのあと別検討シートを追加、という作り方をしていった結果、検討内容自体は違うものの、共通の計算があるっていう状態になっていて、特に意識したわけではないです
このエクセルを整理することを考えた時、共通の計算は、別個シートを作って、そこで計算させておくべきでしょうか？？

**デフォルトの名無しさん** · 2018/03/12(月) 05:43:32.66

シートが必須なの？
標準モジュールじゃあかんの？

**デフォルトの名無しさん** · 2018/03/12(月) 12:42:37.39

UserFormの部品の位置を微調整するために、
ズーム表示させる方法はありませんか？
(今は、Windows標準の拡大鏡を使ったりしています)

**デフォルトの名無しさん** · 2018/03/12(月) 14:30:50.92

>>372
微調整なら数値からやればいいのでは

**デフォルトの名無しさん** · 2018/03/12(月) 17:18:50.94

スペースがあるかないかもわからん馬鹿がなぜそんなことを気にするかね

**デフォルトの名無しさん** · 2018/03/12(月) 18:40:09.24

>>371
>>371
あっvbaスレに間違えて書き込んでしまいました
すみませんvba使いません

**デフォルトの名無しさん** · 2018/03/13(火) 00:27:26.72

UserFormを作成中にF5押下でお試し実行ができますが、
普通にやるとモーダルになります。
F5押下でもモードレスで実行する方法ってありますか？

**デフォルトの名無しさん** · 2018/03/13(火) 01:15:13.77

>>376
UserFormのShowModalプロパティをFalseにする

**デフォルトの名無しさん** · 2018/03/13(火) 01:17:05.94

>>377

ありがとうございます。

**デフォルトの名無しさん** · 2018/03/13(火) 07:54:16.83

>>378
いいってことよ(´・ω・｀)b

**デフォルトの名無しさん** · 2018/03/13(火) 11:51:11.57

ここはレベル高ぇ。
でも、みんな、協力しているのはとても嬉しいです。
勉強になる。
ありがとうございます。

**デフォルトの名無しさん** · 2018/03/13(火) 17:49:20.30

よろしくお願いします。年１のプレイヤーです。

商品コード（1000～1000000）に対して、別シートにある原価を
vlookupで検索し、商品コードの右セルに代入しようとしているのですが
1000番台はエラーにならず、200000台からエラーになってしまいます
（1000番台の次は200000台にコードが飛びます）

「worksheetfunctionクラスのVlookupプロパティを取得できません」

なにが原因かわからなくてヘルプお願いします。

=================================================
For i = 2 To 最終行
原価 = 0
With Sheets("原価")
原価 = WorksheetFunction.VLookup(Cells(i, 商品コード列), .Range(.Cells(1, 1), .Cells(10, 1000)), 6, False)
End With
Next i

**デフォルトの名無しさん** · 2018/03/13(火) 17:57:59.90

>>381
「vlookup vba」でggrks

検索結果の例: https://www.sejuku.net/blog/29654

**381** · 2018/03/13(火) 18:11:15.85

すみません。解決しました。

**デフォルトの名無しさん** · 2018/03/14(水) 01:32:37.37

済んだﾊﾅｼで済みません

**デフォルトの名無しさん** · 2018/03/14(水) 20:38:23.29

ＩＥやＥｘｃｅｌを非ｱｸﾃｨﾌﾞのままﾊﾞｯﾁ処理してると、ＣＰＵやﾒﾓﾘをやたら消費するのはなんでだろ？
ＡｐｐＡｃｔｉｖａｔｅで対処はできてるけど、理由が分からないのが気持ち悪い
（ちなみにＡｐｐＡｃｔｉｖａｔｅは自ｱﾌﾟﾘを前面にできないのはなんでだろ？いちいち別のＶＢＳを呼び出してる）

Ｅｘｃｅｌが「遅くなる」点については調べてる人がいて、「非ｱｸﾃｨﾌﾞでは遠慮して動くから」と
ＣＰＵが櫛型に動いてる様子を紹介してた

ならＣＰＵ使用率が下がるはずなのに現実は逆で、やたら使用率が上がり、ﾒﾓﾘも何倍も上がる
遅い分ｲﾍﾞﾝﾄが貯まってｽﾀｯｸが貯まってﾒﾓﾘが上がって、そのためにＣＰＵも上がるのかな
「遠慮する」機構が裏目に出てるのかな

**デフォルトの名無しさん** · 2018/03/14(水) 21:36:34.44

>>385
一目で馬鹿とわかる文章

**デフォルトの名無しさん** · 2018/03/14(水) 21:38:17.91

IE, Excel などのプロセスを終了していないとか？
ドンドン起動しても終了しないから、プロセスが無限に増えていってるとか？

タスクマネージャーで見れば？

**デフォルトの名無しさん** · 2018/03/14(水) 22:18:16.08

>>387
１ﾌﾟﾛｾｽの話
それに、ﾌﾟﾛｾｽが貯まってる話ならなんでＡｐｐＡｃｔｉｖａｔｅで解決するのん？

**デフォルトの名無しさん** · 2018/03/14(水) 23:50:59.44

>>388
馬鹿丸出し

**387** · 2018/03/14(水) 23:58:49.45

例えば、コマンドプロンプトから、Ruby を起動して、そのソースコードから、
Selenium WebDriver で、ブラウザを起動すると、
これらは、GUI のプロセスだから、プロセスに親子関係がある。
(親) コマンドプロンプト → Ruby (子) → ブラウザ (孫)

だから、親か子を終了すると、孫のブラウザも終了する

でも、VBScript(VBS) などで、CUI モードを使うと、親子関係を断ち切るから、
(親) VBS → ブラウザ・Excel (子)

VBS を終了しても、ブラウザ・Excel は終了されない。
子プロセスを、自分で管理せず、OS に任せている状態になる

**３８５** · 2018/03/15(木) 01:02:06.87

>>390
話聞いてる？

**３８５** · 2018/03/15(木) 01:06:52.75

>>390
あ、分かった、俺が悪かった
ﾀｽｸｽｹｼﾞｭｰﾗで直接ｴｸｾﾙを起動した場合は、この現象起きなかった気がする
ＤＯＳのﾊﾞｯﾁ経由で起動すると起きる気がする
で、「ＯＳに任せる」と、非ｱｸﾃｨﾌﾞ時に無駄にＣＰＵとﾒﾓﾘを食うと
なるほど
留意点は分かったけど、理屈は分からんｗ

**387** · 2018/03/15(木) 01:42:16.85

プロセスには、2種類ある

ユーザーが管理している、画面を持つ(GUI)プロセスと、

OS が管理している、画面を持たない(CUI)、
バックグラウンドで動作する、サーバーのようなプロセス

上は、プロセスに親子関係があるけど、
下は、OS がプロセスの親になるとか？

**デフォルトの名無しさん** · 2018/03/15(木) 06:34:45.23

フォルダ内の複数のエクセルファイルを開いて指定シートをコピーして閉じるを繰り返したい。コピーするシートは各エクセルに対して1シートのみ。

シート名は個人名でそれぞれバラバラなんだけどいい方法ない？

**デフォルトの名無しさん** · 2018/03/15(木) 06:42:29.06

1シートしかないブックにする

**デフォルトの名無しさん** · 2018/03/15(木) 07:23:11.51

>>394
人が開いたときにそのシートを特定するときはどうしてんの？
それをプログラムに落とせばいい

**デフォルトの名無しさん** · 2018/03/15(木) 08:20:13.69

質問です。
whatif のデータテーブルで、sheet1にある式をsheet2から参照したいのですが、「代入セルの参照が正しくありません。」というエラーが出ます。
sheet1の同じシート内でやる時はエラーは出ないのですが、別シートは参照出来ないのでしょうか。

**デフォルトの名無しさん** · 2018/03/15(木) 08:24:47.39

>>397
VBAの質問じゃなくね？

**デフォルトの名無しさん** · 2018/03/15(木) 12:47:59.22

メゾット君いて草

**デフォルトの名無しさん** · 2018/03/15(木) 13:26:06.11

>>397
馬鹿は死ねよ

**デフォルトの名無しさん** · 2018/03/15(木) 19:29:22.65

>>397
はい。
対象のシートをアクティブにして下さい、

**デフォルトの名無しさん** · 2018/03/15(木) 21:40:55.79

入力規則でセルに選択リストを作りました
で、セルのプルダウンで選んだアイテムが
何行目か？っていうのを知りたいんだけれど
doとかfor文でリスト先頭から一致検索するしかないのかな？
一発でアイテムのカウント何件目か取得する事って出来たりするんかなぁ？