[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
216(2): (ﾌﾞｰｲﾓ MM8e-7JDO) 2020/09/10(木)23:52 ID:2cDIJpauM(1) AAS
>>200
こいつもかなり怪しいな
i, jを宣言してないし、変数をゼロクリアしてるのも謎
217: (ｱｳｱｳｳｰ Sa21-PnJR) 2020/09/10(木)23:53 ID:/1fuNzSOa(1) AAS
>>215
確かに言われてみれば
キラキラの意味
218: (ﾜｯﾁｮｲ a95f-Sism) 2020/09/11(金)01:20 ID:66INGyZB0(1/2) AAS
>>216
本業が税理士なのに、詳しくもないことをひけらかすやつだから、税理士としてもいまひとつの癖のあるやつだと思う。
219: (ﾜｯﾁｮｲ a95f-Sism) 2020/09/11(金)01:22 ID:66INGyZB0(2/2) AAS
>>216 彼も他人のパクリなのかもね
220: (ﾜﾝﾄﾝｷﾝ MM7a-nV8z) 2020/09/11(金)01:27 ID:iTcJm+RBM(1) AAS
ゆとり世代の馬鹿に教えるゆとりかよ
221(1): (ｽｯﾌﾟ Sd0a-4Ha4) 2020/09/11(金)08:33 ID:L6SxevYWd(1/2) AAS
>>146
そいつはバグだと思うよ。
Mougで質問してた人がいて、俺も試したけどTreeViewでのD&Dで座標がバグってる。
で、15ってのはそのバグを何とか実情に合わせたものだと思う。
俺もその時似たようなことやって15っていう数字には覚えがある。
222(1): (ﾌﾞｰｲﾓ MM81-+eY2) 2020/09/11(金)09:37 ID:mn04Qg6+M(1) AAS
>>221
>>146 です。色々調べた結果、TreeViewのMouseMoveやMouseDownのイベントで渡される座標が他のフォームとは異なりピクセルで渡される事が原因でした。
なのでGetDesktopWindow,GetDC,GetDeviceCapを用いてDPIを取得し、
取得した値で1440(1440twips=1Inch)を割り、
その値をピクセル数に掛ける事でポイントでの換算に成功しました。
標準の設定ですとDPIが96になるそうなので1440/96で15、となるようです。
223(1): (ﾜｯﾁｮｲ 6a2f-sa+Q) 2020/09/11(金)16:13 ID:qEgHhc430(1) AAS
VB6だとScreen.TwipsPerPixelXってあったんだがなあ
VBAだとPointsToScreenPixelsXとかあるなと思ってみてみたけど、これ、つねに72DPIで計算するっぽいな
224: (ｽｯﾌﾟ Sdea-ah1O) 2020/09/11(金)18:44 ID:+9zmYtvxd(1) AAS
>>192
それだと1回めの選択範囲で動いて、移動したら動きますよね？
1回目の行や列を記憶させて2回目で比較する感じですか？
225: (ｽｯﾌﾟ Sd0a-4Ha4) 2020/09/11(金)22:11 ID:L6SxevYWd(2/2) AAS
>>222
>>223
うん、その辺みんな知ってるけどTreeViewの問題って違ってたと思うんだが。
226: (ﾜｯﾁｮｲ 7910-lSnV) 2020/09/12(土)08:12 ID:cGm6fMBf0(1) AAS
動的配列に値を追加していきたいのですが要素番号を0ではなく1から始める方法はありませんか？
227: (ﾜｯﾁｮｲ ea01-/mq1) 2020/09/12(土)08:24 ID:OyGZa+nz0(1) AAS
Sub testtttt()
Dim arr() As Variant
ReDim arr(1 To 1)
arr(1) = 10
ReDim Preserve arr(1 To 2)
arr(2) = 20
ReDim Preserve arr(1 To 3)
arr(3) = 30
MsgBox arr(1) & " " & arr(2) & " " & arr(3)
End Sub
省2
228: (ﾌﾞｰｲﾓ MM8e-EZp5) 2020/09/12(土)08:28 ID:FkIM4E0+M(1) AAS
『[ VBA ]「Option Base 1」使うなよな！反論は聞かない！』
229: (ﾜｯﾁｮｲ 7d01-XADe) 2020/09/12(土)15:06 ID:X8G1U5XY0(1) AAS
アレイリスト使うほうがかんたんじゃね？
230: (ﾜｯﾁｮｲ 11da-pVuC) 2020/09/12(土)20:26 ID:+6u/uPRn0(1) AAS
先頭を１にするのはセンスないね
231(1): (ｵｯﾍﾟｹ Srbd-o3hV) 2020/09/14(月)18:06 ID:YLQY1Qz5r(1/2) AAS
i++とか+=使えないのマジで不便だな
前置インクリメントもできないし一行でもend ifとかloop書かなきゃいかんしめんどくさくね？
この言語もうちょい進化しないの？
232(2): (ﾌﾞｰｲﾓ MMc9-+eY2) 2020/09/14(月)18:10 ID:CnoY9xmOM(1) AAS
１行でEnd If書きたくないならThenの後に半角スペースいれたら改行しないで処理書いてみ
++とかは禿同
233(1): (ｵｯﾍﾟｹ Srbd-o3hV) 2020/09/14(月)18:13 ID:YLQY1Qz5r(2/2) AAS
>>232
おおこんなことが、、、
ありがとう！
234: (ﾜｯﾁｮｲ 668e-0TEw) 2020/09/14(月)18:15 ID:LbAMjRkX0(1/3) AAS
>>231
馬鹿は死ねよ
235: (ﾜｯﾁｮｲ 7910-lSnV) 2020/09/14(月)19:51 ID:ZpzZ2vr50(1) AAS
ガイジ君ブチ切れw
上下前次1-新書関写板覧索設栞歴
あと 767 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.017s