Excel VBA 質問スレ Part60

**デフォルトの名無しさん** · 2019/03/16(土) 20:39:09.64

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part59
https://mevius.5ch.net/test/read.cgi/tech/1549692750/

**デフォルトの名無しさん** · 2019/03/16(土) 20:39:59.29

何で誰も立てないの

**デフォルトの名無しさん** · 2019/03/16(土) 21:14:45.74

>>1乙だけどﾜｯﾁｮｲ抜けてる…

**デフォルトの名無しさん** · 2019/03/16(土) 21:48:42.20

>>2
もう必要ないから

**デフォルトの名無しさん** · 2019/03/16(土) 23:05:16.78

>>2
未回答の質問が特になかったから

**デフォルトの名無しさん** · 2019/03/17(日) 01:48:38.37

前スレの最後の方で承認欲求モンスター共がAccessの話でマウント合戦初めて、もうみんなこのスレ要らないやって思ってたんだぞ

**デフォルトの名無しさん** · 2019/03/17(日) 08:15:42.60

次からAccessスレも含めて↓でいいんじゃないかな
ここ無くなって↓あるの初めて知った
最近outlookVBA使い始めたんだけど、もっと早く使うんだったと後悔

VBAなんでも質問スレ Part2 [転載禁止]©2ch.net
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

**デフォルトの名無しさん** · 2019/03/17(日) 08:40:24.61

やっと出来たか

前のExcel VBAのスレで、次スレ検索したら、Accessの
https://mevius.5ch.net/test/read.cgi/tech/1544620479/
が出てきたぞ

VBAは全部まとめていいんじゃねえか？

**デフォルトの名無しさん** · 2019/03/17(日) 09:42:14.71

お願いします。

Sub teust()
n = Cells(Rows.Count, "b").End(xlUp).Row + 1
Range("b" & n).Select
ActiveCell.FormulaR1C1 = Sheets(2).Range("i4")

End Sub

a b c b …
ってやってるですがB列だけ9個下に表示されます。

考えられる原因はなんでしょうか(泣)

abcb…はコピペしてるので何故かB列だけ下に行きます

**デフォルトの名無しさん** · 2019/03/17(日) 11:43:51.79

>>9
Cellsで参照してるアクティブシートのB列だけ、最終行であるべき行よりも9行下に余計な値の入ったセルがあるとかじゃない？
変な空白が入ってたり、表の欄外に他人が勝手にコメントつけてたりとかありそう

**デフォルトの名無しさん** · 2019/03/17(日) 12:05:15.62

MsgBox Range("B" & n).Value

とか一度やってみて

同じような事が起きたことあるけど
会社のおっさん上司が白色の文字をそのセルに置いてたわ

**デフォルトの名無しさん** · 2019/03/17(日) 14:35:17.64

コンソールの使い方知ってるならDebug.Print n とかDebug.Print Range("B" & n).Value でも良し

**デフォルトの名無しさん** · 2019/03/17(日) 16:19:59.54

>>9
正直、コードが微妙に感じる。
1行で済むだろ。

それと、ブックとかシートは余程のことが無い限り省略しない方が良い。

**デフォルトの名無しさん** · 2019/03/17(日) 17:40:29.60

>>8
良いと思う

**デフォルトの名無しさん** · 2019/03/17(日) 20:10:18.97

>>13
そういうコメントするなら一行コードを書いてあげるのが親切じゃね

**デフォルトの名無しさん** · 2019/03/17(日) 20:52:23.19

>>15
sht.Cells(sht.Rows.Count,2).End(xlUp).Offset(1,0).FormulaR1C1=Sheet(2).Range("I4").Value
とかかな。
FormulaR1C1とかValueは適宜実際に併せて変えてくれ。
Sheet2のI4に式が入ってるとは思えないから両方Valueで良いような気がする。

**デフォルトの名無しさん** · 2019/03/17(日) 21:43:54.03

>>16
実際書いちゃう人大好き

**デフォルトの名無しさん** · 2019/03/17(日) 23:17:32.63

別に1行にすべきというわけじゃ無い。
.SelectとActiveCellが良くないということ。
あと、元の情報が無いのとスマホで書いたからブックは省略したけど、自分が組んでたら省略はしない。

**デフォルトの名無しさん** · 2019/03/19(火) 02:31:46.42

入力のあったセルの場所が分かったとしても、また同じ事が起きそう
入力させるセルと出力するセルはハッキリ分けた方がいいと思うよ

**デフォルトの名無しさん** · 2019/03/19(火) 06:29:25.90

みんなこっちにいるよ
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

**675** · 2019/03/19(火) 12:34:39.62

確実に全セル入力されてる列があるならそれを基準に使う手もアリ(例えば項番の列とか)

**デフォルトの名無しさん** · 2019/03/19(火) 12:37:36.01

新しくシートを作成するコードで、
シート名をInputboxで入力させるんだけど、
もし名前が被ったときに、エラーを回避して
Subを終わらせることってできる？

シートも結構いっぱいあるから
「名前が一致したとき」にExit Sub
ってのはやりたくないんだけど…

**デフォルトの名無しさん** · 2019/03/19(火) 13:02:44.27

>>22
For Eachで全シートの名前と比較して、同じのがあったら作らない

**デフォルトの名無しさん** · 2019/03/19(火) 13:09:43.79

>>23
最後の3行が無ければ俺も同じ事をレスしてた

**デフォルトの名無しさん** · 2019/03/19(火) 13:19:11.43

>>22
最初に名前があるかどうかの処理をかませばいいだけ
シート作ってから一緒に何かしようとするとややこしいしミスするからオススメできない

Sub foo()
希望シート名 = InputBox("シート名を入力")
For Each 既存シート In ThisWorkbook.Worksheets
'小文字半角に変換、統一して比較
If StrConv(希望シート名, 6) = StrConv(既存シート.Name, 6) Then
MsgBox ("既にあるシート名でした。終了します")
Exit Sub
End If
Next

Set 新シート = Worksheets.Add
新シート.Name = 希望シート名
'新シートで処理

End Sub

**デフォルトの名無しさん** · 2019/03/19(火) 15:13:53.64

>>23
>>24
>>25

ありがとう！
試してみますわ

**デフォルトの名無しさん** · 2019/03/19(火) 15:26:37.07

できたー！ありがとうございました！
まさにこれっすー！

**デフォルトの名無しさん** · 2019/03/19(火) 19:23:19.44

オレはループ回すの面倒（遅い？）から on errorでやるわ

**デフォルトの名無しさん** · 2019/03/19(火) 19:31:40.14

on errorってエラーの決め打ちじゃなくて「このエラーが出るはず」という使い方だから、他の手段があるならあまり積極的には使わない方がいいと思う

**デフォルトの名無しさん** · 2019/03/19(火) 19:59:00.27

tryか

**デフォルトの名無しさん** · 2019/03/19(火) 22:17:46.56

on errorの場合はworksheets.add.nameで作ってエラー時はActiveSheet.Deleteみたいな処理にすんのかな
不測の事態が起きそうで怖いけど

**デフォルトの名無しさん** · 2019/03/19(火) 22:26:38.38

シートに配置したフォームコントロールのボタンのクリックとマクロを関連付けています
この時、ボタンのテキストを取得する方法はありますか？
Application.Caller
だと名前は取得できるのですが
ボタンの名前をテキストと同じものに変更する、でも良いです

**デフォルトの名無しさん** · 2019/03/19(火) 22:31:52.70

>>16
ブック.シートをwithでくくりたい(´・ω・`)

**デフォルトの名無しさん** · 2019/03/19(火) 22:49:35.77

>>32
ボタンのテキストはどうやって設定した？captionプロパティじゃないのか？

**デフォルトの名無しさん** · 2019/03/19(火) 23:00:11.13

>>34
手作業です

**デフォルトの名無しさん** · 2019/03/19(火) 23:02:44.80

>>35
ボタンに表示している文字の事を言ってるなら、手作業でもなんでもcaptionプロパティに入れてるはずだが

**デフォルトの名無しさん** · 2019/03/19(火) 23:07:48.99

リストボックスのリストを更新した時クリックイベントが発生するのは何故？

**デフォルトの名無しさん** · 2019/03/19(火) 23:14:34.15

>>36
そのcaptionプロパティを取る方法が分からないのです
https://i.imgur.com/Z5g9J0j.png

引数としてオブジェクトが渡されるわけでもないし、何か方法はあるのでしょうか

**デフォルトの名無しさん** · 2019/03/19(火) 23:21:08.44

>>38
ボタンのオブジェクト名.caption

**デフォルトの名無しさん** · 2019/03/19(火) 23:22:51.25

ボタンに限らずプロパティの指定の仕方はみんな同じ

**デフォルトの名無しさん** · 2019/03/19(火) 23:22:59.66

いろんなボタンにおんなじハンドラ割り当ててるんでしょ？

**デフォルトの名無しさん** · 2019/03/19(火) 23:29:58.14

>>39
えぇ、それは分かるんですが

>>41
そうです
複数のボタンのclickイベントに同じマクロを登録し、
clickしたボタンのcaptionを取りたい
https://i.imgur.com/IWsgjEQ.png

**デフォルトの名無しさん** · 2019/03/19(火) 23:33:09.14

>>42
マクロと言ってる時点で死ねよ

**デフォルトの名無しさん** · 2019/03/19(火) 23:34:33.07

>>38
OLEオブジェクトのコレクションからnameプロパティの一致する物を探すとか

**デフォルトの名無しさん** · 2019/03/19(火) 23:34:51.64

じゃあSheet1.buttons(application.caler).captionは？

**デフォルトの名無しさん** · 2019/03/19(火) 23:38:15.01

少々強引だが、apiのGetCursorPos関数でマウスポインタの場所のコントロールを取得って方法もある

**デフォルトの名無しさん** · 2019/03/19(火) 23:52:25.41

随分むごまっこっるた方法だな。

**デフォルトの名無しさん** · 2019/03/20(水) 00:28:31.79

>>43
一見イベントハンドラですが、thisが使えない、オブジェクト渡さないイベントハンドラはハンドラと言えるのでしょうか
個人的には、ハンドラという方が逆に混乱すると思いますのであえて言っていません

>>45
うおおおおおおできましたああああああああすごい！！！！！
https://i.imgur.com/8q0Z3yb.png

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

**デフォルトの名無しさん** · 2019/03/20(水) 00:31:55.82

あと、>>45さんの
Sheet1
というオブジェクトも気になります
sheet(1)
のエイリアスが自動的に生成されてると思いますが、MSDNでどのように調べると良いでしょうか？

**デフォルトの名無しさん** · 2019/03/20(水) 00:32:23.83

ActiveSheet.Buttons(Application.Caller).Characters.Text でいけないかな
試してないから駄目だったらごめん

**デフォルトの名無しさん** · 2019/03/20(水) 00:47:38.18

>>49

インデックス番号は、同じ種類のシート間に付けられる番号で、左からのシート見出しの順に基づきます。

https://docs.microsoft.com/ja-jp/office/vba/excel/concepts/workbooks-and-worksheets/refer-to-sheets-by-index-number

シートオブジェクトの移動や削除を行ったときにダイナミックにインデックスが変更されるのか、ファイル保存等の更新イベントがあるのかという細かい部分は調べてないから分からない
デフォルトのシート名がSheet & シート追加時のインデックス値になるのは経験上知ってる

**デフォルトの名無しさん** · 2019/03/20(水) 00:58:10.12

>>49
画像のボタンがSheet1に貼ってあったからそれに合わせて書いただけ
"Sheet1"っていう名前のシートのオブジェクト名がSheet1になってるっしょ

**デフォルトの名無しさん** · 2019/03/20(水) 01:11:06.91

>>51
シートのインデックスは常に左からの連番
シートの追加削除等あればもちろん都度変わる

**デフォルトの名無しさん** · 2019/03/20(水) 01:39:18.38

>>50
行けそうでダメでした
何で～？
https://i.imgur.com/kZaCjUg.png
https://dotup.org/uploda/dotup.org1801319.zip

>>51
＞デフォルトのシート名がSheet & シート追加時のインデックス値
削除すると変わるので、これは違います

>>52
その仕様ってどこかに書いてないのでしょうか

**デフォルトの名無しさん** · 2019/03/20(水) 02:22:30.37

>>54
どこに書いてるかは知らないけど、ボタンもシートもブックもオブジェクトの指定の仕方は同じ
　オブジェクト名
　オブジェクトのコレクション(インデックス)
　オブジェクトのコレクション("名前")
好きなのを使うがよい

**デフォルトの名無しさん** · 2019/03/20(水) 02:25:30.67

MS公式でWorksheetオブジェクトに関する説明調べればどっかにあるかもねえ、知らんけど

**デフォルトの名無しさん** · 2019/03/20(水) 11:46:18.93

マクロを10時間ぶっ通しで走らせるのはよくないですか？途中で再起したほうがいいですか？

**デフォルトの名無しさん** · 2019/03/20(水) 11:59:24.66

>>57
また馬鹿が来た
死ねよ

**デフォルトの名無しさん** · 2019/03/20(水) 12:06:20.76

>>55>>56
ありがとうございました
もう少し調べたかったけど、疲れたので断念します

>>57
とりあえず動かして、エラーが起きなければ何も問題はない
ただ、セルを触る物を10時間も動かすとメモリエラーが起こるかも知れない

>>58
笑った

**デフォルトの名無しさん** · 2019/03/20(水) 12:33:29.40

>>59
ありがとうございます。
メモリの心配はありますが、ぶっ通しでやってみます。

**デフォルトの名無しさん** · 2019/03/20(水) 13:54:52.74

>>57
応答なしにならないか？

**デフォルトの名無しさん** · 2019/03/20(水) 15:56:43.40

だから、どういう状況で10時間ぶっとおしが必要なんだよwwwwww
マジでExcelを何に使ってるのか気になるわ。

**デフォルトの名無しさん** · 2019/03/20(水) 16:27:03.42

馬鹿の考えることをまともに相手をしてはいけない

**デフォルトの名無しさん** · 2019/03/20(水) 20:36:03.66

結果セットは小さいけど重いDBクエリを繰り返すとかだったらわかる

**デフォルトの名無しさん** · 2019/03/20(水) 20:53:54.94

10時間動かし続けるとなると思いつくのは
出勤時間中にwebサイトやフォルダ監視し続けて何かをキッカケに何かするみたいなのかな

**デフォルトの名無しさん** · 2019/03/20(水) 22:28:30.85

エクセルでやることなんですかねそれ...