[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
705(1): (ﾜｯﾁｮｲ 0563-9Kcm) 2020/10/27(火)23:03 ID:gj2Ohu8L0(1) AAS
>>679
ありがとうお勧めではないそうですが
教えてくださった方法でコメントアウトできたので
使いますww
706: (ｱｳｱｳｳｰ Sa45-ot4R) 2020/10/27(火)23:05 ID:WVQXu4mGa(1/2) AAS
代入が式の言語だと、結果 a、b、c が同値になるし、イヤだなぁ…
707: (ｱｳｱｳｳｰ Sa45-ot4R) 2020/10/27(火)23:13 ID:WVQXu4mGa(2/2) AAS
>>705
[表示]-[ツールバー]-[編集] で表示られるアイコンの左から9番目で選択範囲を一括コメント化、その右のアイコンでコメント解除
それも試してみてください
708: (ｱｳｱｳｳｰ Sa45-TzND) 2020/10/27(火)23:23 ID:2iVpt4JMa(1) AAS
>>704
おれは嫌い
709: (ﾗｸｯﾍﾟﾍﾟ MMeb-4t7V) 2020/10/28(水)06:32 ID:MUExsF8QM(1/2) AAS
マクロ実行後、
エクセルファイルを保存しようとすると
プライバシーに関する注意
というメッセージが出ます。
出ないよう設定できるようですが
セキュリティ的に不安です。
皆さんどのような対処をされてますか
いったんエクセルを全部終了するくらいしか
思いつきません
710(1): (ﾃﾃﾝﾃﾝﾃﾝ MMeb-1WjG) 2020/10/28(水)06:48 ID:MGib4+U5M(1) AAS
マクロ実行後、 ←この時点で手遅れ
711: (ﾗｸｯﾍﾟﾍﾟ MMeb-4t7V) 2020/10/28(水)08:53 ID:MUExsF8QM(2/2) AAS
>>710
実行前に他のエクセルを終了するのが
一般的でしょうか
712: (ﾄﾞｺｸﾞﾛ MMfd-frLi) 2020/10/28(水)12:22 ID:VqefcRCnM(1) AAS
>>704
好きとか嫌いとかじゃなくて
If b = c Then
a = True
Else
a = False
End If
みたいなコード書くなら
a = b = c
ッて書いた方が楽じゃね？
713: (ﾃﾃﾝﾃﾝﾃﾝ MMeb-gykd) 2020/10/28(水)12:26 ID:SBFJNMXDM(1/2) AAS
後から見直すときに前者の方が見やすい
書く時に楽かどうかは別にどうでもいいです
714: (ﾜｯﾁｮｲ 0bba-CXnf) 2020/10/28(水)13:08 ID:Gcn0+siH0(1) AAS
a = (b == c)
ならいいんだけどなぁ
715: (ﾗｸｯﾍﾟﾍﾟ MMeb-rMvQ) 2020/10/28(水)13:28 ID:ArgZkv9MM(1) AAS
インタプリタの時代にif文の構文解析が遅いからって可読性皆無の謎の数式書いてた思い出
716: (ﾜｯﾁｮｲ 8bf2-+/f8) 2020/10/28(水)15:35 ID:0lSgHaJH0(1) AAS
>>697
教えてくれてありがとうございます
これが普通なんですね
仕方ないので暫くはこれで大人しく頑張ってみます
何か荒れてたとこに変な質問して申し訳ありませんでした
717(1): (ﾄﾞｺｸﾞﾛ MM63-frLi) 2020/10/28(水)18:57 ID:koZ0sZlBM(1) AAS
>>696
冗長とか増長とか言う前にシートを指定せずにcells( )とか使うのはバグの元、せめて
With Worksheets("sheet2")
.Range(.Cells(1, 1), .Cells(UBound(tmp), UBound(tmp, 2))) = tmp
End With
にした方がいい
718: (ﾃﾃﾝﾃﾝﾃﾝ MMeb-gykd) 2020/10/28(水)19:02 ID:SBFJNMXDM(2/2) AAS
withはなんか嫌い
719: (ﾃﾃﾝﾃﾝﾃﾝ MMeb-1WjG) 2020/10/28(水)19:10 ID:URI3IFfrM(1) AAS
DAIGO監修マッチングアプリ
720: (ﾜｯﾁｮｲ 93e6-rMvQ) 2020/10/28(水)19:13 ID:Aw3ALjki0(1/2) AAS
..でもうひとつ上のwithが使えるとか変な拡張してほしい
721: (ﾜｯﾁｮｲ f15f-CXP8) 2020/10/28(水)19:29 ID:n4xiXKpa0(1/2) AAS
>>717
With ThisWorkbook.Worksheets("sheet2")
.Cells(1, 1).Resize(UBound(tmp), UBound(tmp, 2))) = tmp
End With
おれはブックから指定しないと気が済まんな
722: (ﾌﾞｰｲﾓ MMcb-Z7cj) 2020/10/28(水)19:32 ID:XiKqUxDYM(1) AAS
withはなんか嫌い
723: (ﾜｯﾁｮｲ f15f-5dFy) 2020/10/28(水)19:40 ID:8aJXN6gS0(1) AAS
Sheetオブジェクトにbookから指定したシート格納して扱うことが多いかなー
724: (ﾜｯﾁｮｲ 93e6-rMvQ) 2020/10/28(水)19:43 ID:Aw3ALjki0(2/2) AAS
SetしたらNothing警察がウルサイんだよ
上下前次1-新書関写板覧索設栞歴
あと 278 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.012s