Excel VBA 質問スレ Part51

Excel VBA 質問スレ Part51 at TECH

[1からを表示]
50:デフォルトの名無しさん
17/11/12 23:03:42.29 eJwcw8mO0.net
>>47
今月のファイルを探したいならDate関数使えば今日の日付が出るからそっからformatなりyearとmonthくみあわせるなりで取得すればいいからわざわざ入力させる必要がないね
フォルダないのファイル名の取得ならググればいくらでも出てくるぞ
俺はfilesystemobjectを使うけど

51:デフォルトの名無しさん
17/11/12 23:12:47.43 UfHz6itl0.net
>>47
まずは最初の部分だけ
今年 = Format(Now, "e")
今月 = Month(Now)
来月 = DateAdd("m", 1, Now)
年 = Format(来月, "e")
月 = Month(来月)

52:デフォルトの名無しさん
17/11/12 23:16:31.66 UfHz6itl0.net
変数に残す必要なかった
今月 = Format(Now, "ee年mm月")
来月 = Format(DateAdd("m", 1, Now), "ee年mm月")

53:デフォルトの名無しさん
17/11/13 00:50:26.46 cup53tTa0.net
どうしてもカレンダー欲しいんだったらSysDateTimePick32使って頑張るだろうな。
面倒くさいけど他のコントロールもMSFormsを使わないウィンドウ作成もやったことある。
きちんとプロパティ作るの面倒くさいから使いたいものしか実装してないけど。

54:デフォルトの名無しさん
17/11/13 00:58:21.51 cup53tTa0.net
>>48
ファイル名取得にfilesystemobjectは激重だった気がする。
Dir関数で頑張る方がよっぽど速い。
これが原因でfilesystemobjectは使わなくなってしまった。
他では速いものもあるのに食わず嫌いになった。

55:デフォルトの名無しさん
17/11/13 01:02:34.35 AtJ4gbq1x.net
>>52
処理対象のファイルのロングパスがDirの引数の字数制限を越えてるときはどうするの？

56:デフォルトの名無しさん
17/11/13 06:21:29.66 gczEvEcT0.net
そもそも劇重なんて思ったことないが...

57:デフォルトの名無しさん
17/11/13 08:01:19.66 4dN82Cnsd.net
なんか別のものと勘違いしてるんじゃないか

58:デフォルトの名無しさん
17/11/13 08:26:57.35 pr331NCP0.net
たかがファイル名を取得するのに処理負荷を感じるほど重くなるとか考えられないな。
読み取り先が等速ドライブに突っ込んだCDだったとか、回線の細いNASだったとかなら分かるけど。

59:デフォルトの名無しさん
17/11/13 09:22:13.43 mbcSFLNRa.net
>>52
クラスにして使いやすくしてるならDir関数でもいいと思うけど生で使う気は更々起きねーなあれは
めんどくさすぎる
早い遅いは環境次第だろう
何をしようとしたか知らんが

60:デフォルトの名無しさん
17/11/13 12:42:29.30 IBZYfbeXM.net
またVBAでクラス語る奴が来ちゃったよ...

61:デフォルトの名無しさん
17/11/13 12:44:49.20 U+ZWq00Pa.net
なんかWindows10でマクロの挙動が安定しなくなったんだけど、そういうのある？

62:デフォルトの名無しさん
17/11/13 13:17:08.13 GJIgK8HXa.net
>>58
語ってるつもりはないし、普通に機能としてあるのに使ってバカにされる筋合いもない

63:デフォルトの名無しさん
17/11/13 13:21:12.07 ck+reS0/0.net
vbaでクラス使うメリットあるの？
一応あるインターフェースは使い物にならないし、継承も使えないし、コンストラクタに引数も設定出来ない。
vbaでクラス使うメリット教えて

64:デフォルトの名無しさん
17/11/13 13:21:56.90 GJIgK8HXa.net
>>61
カプセル化

65:デフォルトの名無しさん
17/11/13 13:43:14.72 4dN82Cnsd.net
>>61
たまにある
単体の処理してる間だけじゃなく、しばらくの間は状態を持っててほしいとき
ごく素朴な使い方しか出来ないし、しようとも思わないけど

66:デフォルトの名無しさん
17/11/13 13:48:11.54 GJIgK8HXa.net
というか、クラスを使うデメリットって逆に何

67:デフォルトの名無しさん
17/11/13 13:52:55.00 HKnEhqdPd.net
そもそもクラスが必要になるほど大規模なコードを書く用途にVBAは向いてない、使うべきじゃない
ちゃんとした開発環境を使え
会社が許可しないなら転職するか我慢するかの二択、あるいは出世して自分で規則を変えろ
仕事の能率がアップして利益が増えるんなら反対する理由はないだろ

68:デフォルトの名無しさん
17/11/13 15:44:46.11 XD2Cv4t70.net
自分の好きなコードが書けないから転職とかww

69:デフォルトの名無しさん
17/11/13 15:54:24.73 IBY/CNJo0.net
不合理なことを押し付けてくる会社なら、転職も選択肢ってことだろ。日本語ﾀﾞｲｼﾞｮﾌﾞ？

70:デフォルトの名無しさん
17/11/13 16:07:38.26 pr331NCP0.net
クラスを使うとシンプルに表現出来る場合がある。規模の問題では無い。
普通に使ってるとなかなか活用するイメージが湧かないけど、覚えておくと役に立つよ。

71:デフォルトの名無しさん
17/11/13 17:08:14.63 GJIgK8HXa.net
ここでも前に書いたけど、配列のラッパークラスとか、一度作ると便利よ
コレクションだと微妙に取り回し悪かったりするからね
これ以上はスレチかな

72:デフォルトの名無しさん
17/11/13 17:09:30.17 4dN82Cnsd.net
>>68
そうだよね
ただ、いちいちクラスモジュールを追加しなきゃならないから、使い捨てクラスをほいほい定義しづらい

73:デフォルトの名無しさん
17/11/13 17:20:46.73 78YzXPYPa.net
FileSystemObjectのファイル一覧取得が遅いのなんて結構有名な話だと思うんだが。
ハードディスクにあるファイル名全部取ってくるとかすれば分かる。
昔

74:、どっかに比較してる所が有ったんだが見つからないな。 Win32APIが一番速かったがDirでもそんなに大きな違いは出なかった。が、FileSystemObjectは糞遅い結果になってた。そもそも自分で組んだら遅くてネットで調べたらやっぱり遅かったという。

75:デフォルトの名無しさん
17/11/13 17:23:43.47 78YzXPYPa.net
クラスは凄く便利だが、無理に使う必要は無いと思う。
個人的には仕様を考えた段階でクラス使うのがぴったりと感覚で分かる。
そういう時以外は使わない。

76:デフォルトの名無しさん
17/11/13 17:47:02.85 GJIgK8HXa.net
>>71
そうなんか
まあ、今んとこそんな大量のファイルのやり取りしたことないから体感したことなかったわ
まあ、その辺使うにしても生で扱うよりクラスでまとめちゃった方が取り回し良さそうだがね
その辺は好みなんだろうけどね

77:デフォルトの名無しさん
17/11/13 18:55:14.32 IBZYfbeXM.net
>>64
まともな言語ならクラスを使うデメリットはないけどVBAのクラスは制限が多すぎて使う意味がない

78:デフォルトの名無しさん
17/11/13 19:08:08.64 wM5leOdq0.net
>>59
bit数の関係で安定しなくなったことはある
>>61
多分、ない
class使ったほうが見通しがよくなる場合はあるけど、
正直そんなに変わらんというか、めんどくさくなるだけの場合が多い気がする

79:デフォルトの名無しさん
17/11/13 21:27:40.19 qqs7mRHsj
この流れで突然クソみたいな質問するの恐縮なのですが…
共有で使っているExcelのデータの行がランダムに大量に消える現象が起きてます
多分誰かがオートフィルタかけた状態でうっかり削除したんだと思うんですが、
消えた行に全く共通点が無いので「マクロにウイルスが付いたんだ！マクロやめろ！」って因縁付けられています

まずVBAにウイルスを仕込むならともかく、VBAを使用しているせいでウイルスに感染するって無いですよね？
あとこのコードに行を消すような要素があるか見てもらいたいです
オートフィルタをかけるだけの簡単なコードなんで無いと思うんですが周りに誰も聞ける人が居ないので一応…
簡単な指示だけどすごく頻繁に使うので消したくないんです

Sub filter1()
　　 Range("K2").AutoFilter Field:=9, Criteria1:="<>"
　　 Range("L2").AutoFilter Field:=10, Criteria1:=""
　　 Range("O2").AutoFilter Field:=13, Criteria1:="AA"
End Sub

Sub filter2()
　　 Range("K2").AutoFilter Field:=9, Criteria1:="<>"
　　 Range("L2").AutoFilter Field:=10, Criteria1:=""
　　 Range("O2").AutoFilter Field:=13, Criteria1:=""
End Sub

Sub filter3()
　　 If ActiveSheet.FilterMode = True Then
　　 ActiveSheet.ShowAllData
　　 End If
End Sub

80:デフォルトの名無しさん
17/11/13 21:36:08.79 S878v5EG0.net
この流れで突然クソみたいな質問するの恐縮なのですが…
共有で使っているExcelのデータの行がランダムに大量に消える現象が起きてます
多分誰かがオートフィルタかけた状態でうっかり削除したんだと思うんですが、
消えた行に全く共通点が無いので「マクロにウイルスが付いたんだ！マクロやめろ！」って因縁付けられています
まずVBAにウイルスを仕込むならともかく、VBAを使用しているせいでウイルスに感染するって無いですよね？
あとこのコードに行を消すような要素があるか見てもらいたいです
オートフィルタをかけるだけの簡単なコードなんで無いと思うんですが周りに誰も聞ける人が居ないので一応…
簡単な指示だけどすごく頻繁に使うので消したくないんです
Sub filter1()
Range("K2").AutoFilter Field:=9, Criteria1:="<>"
Range("L2").AutoFilter Field:=10, Criteria1:=""
Range("O2").AutoFilter Field:=13, Criteria1:="AA"
End Sub
Sub filter2()
Range("K2").AutoFilter Field:=9, Criteria1:="<>"
Range("L2").AutoFilter Field:=10, Criteria1:=""
Range("O2").AutoFilter Field:=13, Criteria1:=""
End Sub
Sub filter3()
If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If
End Sub

81:デフォルトの名無しさん
17/11/13 21:42:36.96 zsNLMe3/0.net
シート保護かけてみるとか

82:デフォルトの名無しさん
17/11/13 21:45:59.98 wM5leOdq0.net
>>77
ウィルスに感染していて、セキュリティをsageているためにウィルスが実行されているというパターンなら考えられるが
其れ以前の問題として
・オートフィルタをかける
・全体をコピー
・ペースト（値として貼り付けなど）
で行が減っている可能性のほうが高いと思う
この仕様
、意外と知られていないんじゃないかなぁ

83:デフォルトの名無しさん
17/11/13 22:24:58.44 S878v5EG0.net
>>79
それって別のシートやブックに貼り付けるときに可視セルだけ貼り付けられているという意味ですか？
別のブックやシートにコピーする事は無いと思うので可能性としては低い気がします…
試しにオートフィルタしながら同じシートに

84:貼り付けようとしたら「コピー領域と貼り付け領域が違うため貼付できません」となりました

85:デフォルトの名無しさん
17/11/13 22:25:14.14 GJIgK8HXa.net
>>77
まあ、自作マクロでウィルスどうこうはあり得ないわ
コード見る限りでも、フィルターかけてるだけで値の操作はしてないしな
まあ、フィルターかけっぱなしにならないようにブッククローズ時にフィルター解除すれば？

86:デフォルトの名無しさん
17/11/13 22:28:52.42 wM5leOdq0.net
>>80
＞それって別のシートやブックに貼り付けるときに可視セルだけ貼り付けられているという意味ですか？
そう
＞別のブックやシートにコピーする事は無いと思うので可能性としては低い気がします…
そか
オートフィルタならまずこれかなーと思ったけど、コピーペーストしてないなら違うかな

87:デフォルトの名無しさん
17/11/13 22:30:45.38 GJIgK8HXa.net
フィルターで謎のデータ消失なら質問者の疑念通りフィルターかけたまんま範囲削除じゃねーかな

88:デフォルトの名無しさん
17/11/13 22:32:36.92 wM5leOdq0.net
実際のコード上げたほうがいいかもねぇ

89:デフォルトの名無しさん
17/11/13 22:46:30.32 S878v5EG0.net
ありがとうございます
コードがおかしいわけじゃないなら良かったです
一応ここに貼ったコードはAAの部分に別の単語が入ってるだけで他は全て実際に使っているものと同じです
クローズ時にフィルター解除するようにはしてなかったのでやってみます

90:デフォルトの名無しさん
17/11/14 09:16:46.87 8wZuibTmp.net
インターネットが壊れた！みたいなのはやめてください！

91:デフォルトの名無しさん
17/11/14 09:53:14.55 tqdP1JBma.net
エクセルの特定の行だけ消すウイルスとか笑えるわ
まあ、バグ満載のマクロとかある意味ウイルスだけど

92:デフォルトの名無しさん
17/11/14 11:29:31.52 G7+v7Fl70.net
ウィルスは簡単に作れるだろ。
リテラシー無い奴が増えたからウィルスとは何ぞ?という議論が必要かも知れんが。
ただ、ExcelよりはAccessとかのが簡単だから大丈夫なんか?と思ったことあるけど。
Application.VBE系のコードが動くようになってれば感染させるのは簡単。
通常、Excelではセキュリティ設定で動かないようにはなってる。
Accessには設定が無い。
WordやPowerPointはどうだったかな。
Application.VBE系ってのはコード書いてるエディタを弄るものでVBAでコードを追加出来る。
つまり自分自身のコードをHDD上の不特定なxlsファイル開いて追加すれば自己増殖出来るし、Auto_Open辺りを追加して次回誰かが開いた時に勝手に実行させることも出来る。
ついでにそのxlsファイルをメールに添付して、アドレス帳の適当な所に送ることも出来る。
少し書ける奴なら分かってるだろうからApplication.VBE系は動かない設定になってるだろう。
Application.VBE系は便利でGithubにアップしたり、VBAのバックアックしたり、コード取得してWinmergeに与えて比較したり色々利用してたけどVB.netのCOMアドインに移行中。

93:デフォルトの名無しさん
17/11/14 11:36:59.15 JNyIRsqMM.net
隙あらば自分語り

94:デフォルトの名無しさん
17/11/14 12:24:48.16 vavtQv330.net
長文はスルーで

95:デフォルトの名無しさん
17/11/14 12:38:00.31 Tcgv7xMn0.net
コンピュータウィルスって「操作している人間の意に沿わない動きをするプログラム」だったと思ったんだけど、
いつの間にか定義が変わったのか。
CDトレー開いたりマウスをランダムに動かすジョーク系もウィルスだったはずだから>>77のもウィルスと言っていいと思ったんだが。

96:デフォルトの名無しさん
17/11/14 12:42:08.62 dN7NjwRxp.net
>>91
その定義だと世の中のあらゆるソフトはウイルスになるんじゃね
バグはあるからな
AndroidやiOSもウイルスになる

97:デフォルトの名無しさん
17/11/14 13:07:49.89 5gpUPtII0.net
>>91
その定義だとワームやトロイの木馬とウィルスが区別できないわけだが
いくら今だとより広義に使われるとはいえ
>>いつの間にか定義が変わったのか
はそのままお前に返してやるよ

98:デフォルトの名無しさん
17/11/14 13:09:39.12 Tcgv7xMn0.net
>>92
バグは確か「論理的に正しくない結果を

99:もたらす何か」みたいな定義だったと思う。マシン内に虫が侵入して電気的にショートするのが語源だしね。同じ定義で使い続けるとバグとウィルスがあやふやになるというのは時代の流れだなぁ。

100:デフォルトの名無しさん
17/11/14 13:16:31.95 Tcgv7xMn0.net
>>93
ワームもトロイの木馬も、元々はコンピュータウィルスを感染させるテクニックというか、
媒介手順だったはずがいつの間にか独立してウィルスの親戚みたいな扱いになってるよなぁ。

101:デフォルトの名無しさん
17/11/14 14:03:33.75 5gpUPtII0.net
>>95
もともと、「感染」しないものはウィルスじゃない
いつのまにか独立したんじゃなくて、初めからちゃんと別物でちゃんと区別されていたんだが
いつのまにかまとめてウィルスと呼ばれるようになったんだ
今じゃマルウェア全般が広義にウィルスって言われる始末
バグは語源は諸説あるが、作成者の意図にそわない動作
ウィルスは作成者の意図にそった動作するプログラム
いくらなんでもそれを混同しないでくれ

102:デフォルトの名無しさん
17/11/14 17:57:06.04 Tcgv7xMn0.net
>>96
だからトロイの木馬もワームも単体ではウィルスじゃなかったんだよ。
言うなればコンテナみたいなものなんで、トロイの木馬型のパッチプログラムとかも可能だし。
たぶん想像している「定義づけられた時期」が違うせいで食い違ってるだけだな。

103:デフォルトの名無しさん
17/11/14 17:58:22.04 MC75ktwb0.net
もうやめよう

104:デフォルトの名無しさん
17/11/15 10:46:14.78 PQCfnSyv0.net
>>97
???
自己増殖しなきゃウィルスじゃない。
トロイもワームもウィルスじゃねーだろ。

105:デフォルトの名無しさん
17/11/15 12:15:18.42 l7NNgtZ+d.net
プログラミングによる業務自動化絶対阻止マンがいて、ウィルスだろうがワームだろうが
題目はなんでもいいから邪魔しようとしている
という妄想をした...
...疲れているようだ

106:デフォルトの名無しさん
17/11/15 12:24:36.36 CIMTn4iP0.net
vbaが駄目なら関数でやればいいじゃない

107:デフォルトの名無しさん
17/11/15 12:41:18.42 PQCfnSyv0.net
いや、だからApplication.VBE系の実行を拒否する設定にしておけばOK。
普通はそうなってる。
マイクロソフトも散々懲りたということだろう。
Accessはそうなってないから危険だけど、どっちにしろアンチウィルスソフト入れたり、それなりに敏感ならまあ大丈夫だろう。
メールに添付されたファイルを何も考えずに開くようなバカのいる所はそもそもコンピュ－タ使うなって話。

108:デフォルトの名無しさん
17/11/15 15:25:25.16 PmECE2vTd.net
Excel2010からExcel2013にしたら「ライブラリが見つかりません」というが発生しました。
他のPCで作成したExcelファイルを開こうとしたら上記のようなエラーが発生したのです。
Excel2010の時も参照設定は参照不可になっておりましたがExcelに記載されているデータを
参照するだけでVBSは動かさないのでExcel2010ではエラーになりませんでしたが、Excel2013
ではファイルを開いた際に「ライブラリが見つかりません」というエラーになります。
これはExcelに開いた際に参照設定のチェックをしないみたいな設定があるのでしょうか？

109:デフォルトの名無しさん
17/11/15 17:08:22.00 MYmTne2b0.net
>>103
説明がひどいなw

110:デフォルトの名無しさん
17/11/15 20:25:36.13 m2725R1N0.net
vbeのツールのライブラリファイルって実体はなになんですか？参照不可になったりしますが
オブジェクトエクスプローラのライブラリともちがうし

111:デフォルトの名無しさん
17/11/15 21:27:06.93 BuHcCqTIx.net
>>103
VBSとオブジェクトライブラリに何の関係があるんだ？

112:デフォルトの名無しさん
17/11/15 23:13:12.29 gnIues9e0.net
メモリリークはVBAでどう対処すればいい？
巨大なファイルクローズ後にまるまんまリークするのですが

113:デフォルトの名無しさん
17/11/15 23:18:44.71 R7mLmomD0.net
巨大なファイルは
・作らない
・分割する
・変換する
・開かずに読み取る
・csvならテキストとして読み込む
この辺
メモリリークはある意味どうしようもないので前提からどうにかしないと解決しない

114:デフォルトの名無しさん
17/11/15 23:25:33.43 gnIues9e0.net
>>108
ありがとう。思い当たるのもあります。
・開かずに読み取る
　これ、できるんですね。調べてみます

115:デフォルトの名無しさん
17/11/16 02:14:21.20 Og9f/0gn0.net
俺なら読み取り専用で一部だけ読んで閉じる

116:デフォルトの名無しさん
17/11/16 12:25:39.51 NqwHUE6Zr.net
>>107
それはメモリリークではないので気にする必要はありません

117:デフォルトの名無しさん
17/11/17 11:56:05.53 8RvIbz6z0.net
巨大なファイルをSSDのHDDに移すと速いんじゃね

118:デフォルトの名無しさん
17/11/17 11:57:22.13 8RvIbz6z0.net
HDDってかいたけどHDDじゃないけどな

119:デフォルトの名無しさん
17/11/17 12:27:16.57 OabwNEEsd.net
SSDのHHDのFFD

120:デフォルトの名無しさん
17/11/17 17:41:51.06 1LBcgp5Vd.net
VBAで原価計算してる人いる？

121:デフォルトの名無しさん
17/11/17 20:16:29.56 Iig4V4n+H.net
Dir関数で末尾$のフォルダを確認するとエラーになる。
（配下のフォルダはエラーにならない）
これ、どんな理由でしょうか？

122:デフォルトの名無しさん
17/11/18 00:56:48.74 lwdaQlHz0.net
>>116
なぜエラーの内容を書かないのか
軽く試した範囲ではエラーにならないな
環境とエラー内容と、実際にエラーになるコード晒せ

123:デフォルトの名無しさん
17/11/18 12:07:28.26 +9+JGsY3H.net
>>117
ですよね。すんません。
'Case NG
?Dir("¥¥Svr¥Share$", vbDirectory)
'Case OK
?Dir("¥¥Svr¥Share$¥Sub", vbDirectory)
アクセス権は親フォルダから継承していますので双方UNCアクセス可能な状態です。Domain Admins権限で実行しています。
GetAttrの戻りは双方 16 です。
共有名に$をつけない場合は発生しないように見受けられます、、、
と、思ったのですが、$の有無ではなくて、共有フォルダ自体を指定すると発生するようです。
エラーは、52: ファイル名または番号が不正です。となります。
ご教示お願いします。

124:デフォルトの名無しさん
17/11/18 12:11:55.49 +9+JGsY3H.net
>>117
環境は、
2008Server
Win7Pro/Excel 2010@vmware 5.4.0
です。

125:デフォルトの名無しさん
17/11/18 13:20:32.42 +9+JGsY3H.net
>>117
末尾を"¥"で終わらせるとエラーにならないことがわかりました。でも戻りが "." になります。わからなくもないですが "Share$" を期待していたので、、
どう解釈すればいいのでしょうか。
（Dir を使う際は末尾 "¥" を励行したほうがいい？）

126:デフォルトの名無しさん
17/11/18 17:21:41.22 lwdaQlHz0.net
UNCパスでそこは共有名であってフォルダ名じゃない気がするが

127:デフォルトの名無しさん
17/11/18 17:56:31.65 HVgorTjE0.net
すいません　wordのVBAです。画像貼りつけて文字列の折り返しを背景にするのに下記では2行目で
描画の対象とならないオブジェクトが選ばれているためにtypeメソッドまたはプロパティは使用できません。
となりますが、どうしたらよいですか？
Selection.InlineShapes.AddPicture FileName:="a.jpg", SaveWithDocument:=True
Selection..ShapeRange.WrapFormat.Type=wdWrapBehind

128:デフォルトの名無しさん
17/11/18 19:38:08.85 +9+JGsY3H.net
>>121
なんかややこしいですね。
共有名に "¥" をつけて初めて共有フォルダのルートフォルダとして認識される、と覚えておくことにします。

129:デフォルトの名無しさん
17/11/18 22:21:46.28 +9+JGsY3H.net
立て続けにすんません。
onAction の引数について、全角英数記号が半角に解釈されて実行されてしまうのは既知の仕様でしょうか？
ひらがなカタカナは被害を受けないようです。
CommandBars.ActiveControl.Caption
CommandBars.ActiveControl.OnAction
あたりで変換前の文字列を救出できるようですが、、根本的対応はないのでしょうか。
上記で躓いてしまい、公式で情報をみつけられなかったもので、、

130:デフォルトの名無しさん
17/11/19 10:05:19.39 M3mw+ZdH0.net
>>122
まずさ、Selection使うの辞めようぜ。
Hoge.Select
Selection.Fuga
という形が有ったらたいてい
Hoge.Fuga
という形にできる。
つまりね、大抵は選ぶ必要がない。
ある程度書ける人は選ぶ処理をいかに無くすかを考える。
そうすればApplication.ScreenUpdating=False使っても
速度が変わらなくなる。
ちらつき防止のために使うのが有用なのは変わらないんだけど。
.Selectを使うのはユーザーに明示的に場所を示す場合と、
本当にどうしようもない場合がごくまれにあるだけだ。
オブジェクトブラウザでShapeRangeとかWrapFormatを
調べてそこに何が(型)期待されてるかを調べる。
後は合わせれば良いだけだ。

131:デフォルトの名無しさん
17/11/19 10:10:14.58 M3mw+ZdH0.net
>>124
"OnAction" "全角"でググると結構出てくるね。
コメント以外で日本語使うこと無いから遭遇する事無かったわ。

132:デフォルトの名無しさん
17/11/19 11:46:20.87 JvH46D6m0.net
>>125
＞.Selectを使うのはユーザーに明示的に場所を示す場合と、
「ユーザーが明示的に選択したオブジェクトを処理する場合」も追加願います

133:デフォルトの名無しさん
17/11/19 11:56:21.06 aexN4+ic0.net
追加願いますって何を言ってるんだ？？？

134:デフォルトの名無しさん
17/11/19 12:23:26.42 JvH46D6m0.net
>>128
>>125が
＞.Selectを使うのはユーザーに明示的に場所を示す場合と、
＞本当にどうしようもない場合がごくまれにある　「だ　け」　だ。
と言ってるから、もう一つのパターンもあるよ、と言ってるわけだが？

135:デフォルトの名無しさん
17/11/19 12:30:59.55 aexN4+ic0.net
select使わない理由は誤作動の原因になるからの方が多いんじゃないか
もちろんパフォーマンスも大きく変わるけど、言うほど変わらない
それよりもコード上、何のブック、シートがactivateになっているかを把握する方が遥かにめんどくさい

136:デフォルトの名無しさん
17/11/19 12:55:38.95 YlgcavI50.net
作ってるものが偏っているからActiveSheetやSelectionを使う機会がないだけで、
もっと操作補助的な面の強いマクロなら使う場面もあるかもしれない。

137:デフォルトの名無しさん
17/11/19 12:57:36.65 aexN4+ic0.net
確かにコードの最後にcells(1,1).selectはよく書くけど、それ以外のselectは>>125の通り「本当にどうしようもない場合」だけだな
オートシェイプかなんかでsetできなかったような、忘れたけど

138:デフォルトの名無しさん
17/11/19 13:53:20.81 wFQIPa4T0.net
IOと純粋関数部分を分けるようにと、Hな言語から学んだよ。

139:デフォルトの名無しさん
17/11/19 13:59:20.49 ZK6mPT5SM.net
>>131
> もっと操作補助的な面の強いマクロなら使う場面もあるかもしれない。
まあそれが
> .Selectを使うのはユーザーに明示的に場所を示す場合と、
> 「ユーザーが明示的に選択したオブジェクトを処理する場合」
なわけだが

140:デフォルトの名無しさん
17/11/19 16:16:58.30 M3mw+ZdH0.net
>>130
誤動作とか以前に無駄なことをしたくないという自然な考えがある。
Cells(1,1).Select
Cells(1,2).Select
Cells(1,1).Select
と書かれてたらなんじゃこれと思うだろ。
マクロの記録は操作を自然に記録してしまうけど、
やりたいことはそれじゃない。
それにコードも汚くなって読みたくないものになる。

141:デフォルトの名無しさん
17/11/19 16:18:58.83 8D87jpDPa.net
ユーザーが明示的に選択したものに～
ってのもぶっちゃけ運用の問題の気もするが
マクロ化の範囲にもよるんだけども
可能な限り避けるべきってのは正しいでしょ

142:デフォルトの名無しさん
17/11/19 17:16:48.30 JvH46D6m0.net
>>136
＞可能な限り避けるべきってのは正しいでしょ
そうなの？
実際それをやることは少ないけど、別に避けてるわけじゃないな。
「ボタンを押すと、選択しているセルの書式を～する」なんて処理はたまにある。

143:デフォルトの名無しさん
17/11/19 17:30:54.95 SAgRzZs9a.net
ユーザーが明示的に選択したものに処理を与えるってのはアリだとは思う。
でもそれはHoge.Selectでは無くてSelectionを使う場合だよね。

144:デフォルトの名無しさん
17/11/19 17:35:35.45 JvH46D6m0.net
>>138
なるほど
最初のきっかけとなった>>125の1行目が、
＞まずさ、Selection使うの辞めようぜ。
だったからずっと Selection のことを語っていた

145:デフォルトの名無しさん
17/11/19 17:48:04.11 lBNHVI9l0.net
>>136
優先順位の問題でしょ
> ユーザーが明示的に選択したものに～
って言う仕様の方が
> 可能な限り避けるべき
より優先されるのは当たり前

146:デフォルトの名無しさん
17/11/19 17:50:02.84 aexN4+ic0.net
>>138
あぁそれはアリ
会社によっては多用するだろう

147:デフォルトの名無しさん
17/11/19 20:49:12.88 eK6D85VJ0.net
wordのマクロ組んでる人おらんのかな？

148:デフォルトの名無しさん
17/11/19 21:18:16.41 aexN4+ic0.net
>>122 >>142
そもそもwordを使わない
あととりあえず動くコードを書いてくれ
Selection..ShapeR
ピリオドがニコあって邪魔
で、差し込んだ画像の文字列の折り返しってのが何がしたいのか良く分からん
テキストボックスなら分かるしそれで通るけど

149:デフォルトの名無しさん
17/11/19 21:23:25.50 eK6D85VJ0.net
>>143　画像のレイアウトで背面にしたいんですよ。　なんかしらんけど動いて、なぜか前面で貼りつけられました。
なんかEXCELと勝手が違いますぬ・・・。

150:デフォルトの名無しさん
17/11/19 21:27:01.10 aexN4+ic0.net
>>144
エクセルと勝手が違うんじゃなくて、ただただ猛烈に使いにくいだけ
で、上手く行ったので質問は終了ってこと？

151:デフォルトの名無しさん
17/11/19 21:31:31.01 eK6D85VJ0.net
>>145　とりあえずは。　また多分色々とお伺いすることになると思いますが、
なにとぞよろしくお願いいたします。

152:デフォルトの名無しさん
17/11/19 22:32:44.41 Z3cAV0my0.net
wordはスレ違いだけどな
あんまりvbaと親和性もないし
あくまで文書ツールだからな

153:デフォルトの名無しさん
17/11/19 22:50:31.56 1/mWyqVE0.net
おいおいExcelかてただの文書ツールやぞｗ

154:デフォルトの名無しさん
17/11/19 22:56:21.06 aexN4+ic0.net
>>148
釣りはほどほどに

155:デフォルトの名無しさん
17/11/19 23:23:51.19 lBNHVI9l0.net
文書ツールとしてExcel使う奴はたくさんいるけど w

156:デフォルトの名無しさん
17/11/20 08:54:30.90 6BLE5ZLY0.net
>>146
まず君が貼り付けたのは何かを考えよう。
マクロ記録が示すコードを見ればInlineShapeだろう。
InlineShapeを調べれば文字列の中の位置を指定した図形ということらしい。
要は10文字目に挿入とかさ。
InlineShapeにはWrapFormatプロパティは無い。
文字列の折り返しを背景にするというのは回り込み等を自動でやるわけでその結果文字が動くだろ。
それじゃ位置を指定したことにならない。
だから出来ない。
それじゃあどうするかというと、InlineShapeをShapeに変換するというのが1つ。
InlineShapeにはConvertToShapeというのがあるから、それをShapeで受けてやればShapeにはWrapFormatプロパティがある。
Dim iShp As InlineShape
Dim Shp As Shape
Set iShp=Document("hoge.doc").Characters(10).InlineShapes.AddPicture("C:¥fuga.jpg")
Set Shp=iShp.ConvertToShape
Shp.WrapText.Type=wdWrapThrough
しかしそもそも最初からInlineShapeじゃなくてShapeを貼り付ければ問題にならない。
Set shp=Documents("hoge.doc").Shapes.AddPicture("C:¥fuga.jpg")
shp.WrapText.Type wdWrapThrough
Shapeは位置を指定出来ないといっても何文字目という意味で指定出来ないだけで、Left、Top、Width、Heightでの位置指定はできる。
今回の問題もSelectionだったな。
何のオブジェクトを触ってるのかはっきりさせずに組んでるからエラーの意味も分からない。

157:デフォルトの名無しさん
17/11/20 12:21:51.39 phW/Gatbr.net
>>150
そらそれが本来の使い方やもの
なに勘違いしてニヤニヤしとんねんお前
気色悪い奴だな

158:デフォルトの名無しさん
17/11/20 13:11:30.03 tncAZsVja.net
>>152
Jカスこんなところでも下らねー釣りしてんじゃねえよ

159:デフォルトの名無しさん
17/11/20 15:08:27.78 6BLE5ZLY0.net
WordVBAで使いにくいのは記録出来ても良さそうなものが記録出来ない所。
ただ、これはこっち�

160:ｪ出来ても良さそうと勝手に思ってるだけでMS的にはまずい何かが有るのかもしれない。それよりも困るのは Debug.Print Typename(hoge) とやってSelectionが帰ってくる所。型を知りたいのにSelectionは無いだろう。

161:デフォルトの名無しさん
17/11/20 17:44:20.81 PC8rzjhFa.net
>>154
型名調べる関数もうひとつあったよね
あんま使わんから忘れたけど

162:デフォルトの名無しさん
17/11/20 19:16:12.47 3EUEsxu/0.net
>>154
笑ったｗ

163:デフォルトの名無しさん
17/11/20 19:56:44.52 HiJj2X0L0.net
>>154
? typename(hoge)とやったら
Emptyと出てきたぞ。
あなた↓の頭と同じでカラッポ。

164:デフォルトの名無しさん
17/11/20 21:46:53.19 dynAF7sP0.net
>>151　ありがとうございます。　じつはそれで解決しました。
マクロで記録したらinlineshapeで、なんやねんこれ？と理解していなかったことが原因でした。

165:デフォルトの名無しさん
17/11/20 22:35:57.11 bUEYENj70.net
前スレ943様の下記ファイル、もう一度upしていただく訳にはいきませんでしょうか。
DLしようと思いながら、失念していて、先ほどしようとしたところ消えてしまっていました。
943様、お手数をおかけしますが何卒よろしくお願いいたします。
943デフォルトの名無しさん (ﾜｯﾁｮｲ 06e9-FqSh)2017/11/05(日) 15:01:02.75ID:2uRc+T650>>944 >>958
>>942
写真は辞めてくれ。見るのめんどくさい
出てきたからあげるわ
大体やりたいことはこれだと思う
・設定シートのB列に表示したいもの。C列は入力する文字を入れる
・入力シートのA1に「う」と入れて決定。リストが現れて「東京」「北海道」が現れるので選択する
もちろん「う」じゃなくても「東」なんかでもいい。場合によってはB列に「渋谷」とかいれてもいいかもしれない
URLﾘﾝｸ(dotup.org)
自分で言うのも何だがこれ超便利。かなりオススメ

166:デフォルトの名無しさん
17/11/20 23:57:02.00 3EUEsxu/0.net
こういう時はせめてエクセルアップロードできるアップローダーぐらい探してくると良いぞ

167:デフォルトの名無しさん
17/11/21 02:44:24.85 eIBN2cFq0.net
>>157
www
hogeをなんだと思ってる？
そりゃそのまま打てばEmptyが帰ってくるだろう。
hogeで察してくれんかね。
カラッポなのは誰の頭だよ。

168:デフォルトの名無しさん
17/11/21 13:03:45.67 OSkNtsZi0.net
途中経過はどうでもいいから結果を教えろ　って人間がどんどん増えてんだな　経営者かよ

169:デフォルトの名無しさん
17/11/21 16:28:44.72 7aGtp6cN0.net
結果はいいから途中経過を教えろ、なんて頭おかしいだろ何言ってんだか

170:デフォルトの名無しさん
17/11/21 17:41:32.87 rp//GM45a.net
>>163
普通は結果教えてもらうなら過程も学ぶんだよ
まあ、別に学びの場じゃないけどね
ただ、腐ってもプログラムだからな
結果だけ知ってもその場しのぎ以上にはならんだろ

171:デフォルトの名無しさん
17/11/21 18:15:13.21 22dwRLVAd.net
世の中は論理的にできているのに>>163が論理的でないのはなぜなのか

172:デフォルトの名無しさん
17/11/21 19:38:11.84 49Yzjg710.net
>>165
単に逆裏待遇を理解していないだけかと

173:デフォルトの名無しさん
17/11/21 21:45:55.72 vcSymdG+d.net
vbaを勉強中の者です。
市販で売られている本など調べても載っていないのですが、for文で使われる変数名が「i」ですが、なぜ「i」なのですか？
「i」の意味を教えて頂けませんか？
既出でしたらすみません

174:デフォルトの名無しさん
17/11/21 21:52:07.73 x41b941k0.net
>>167
iterationのiって事でいいじゃん

175:デフォルトの名無しさん
17/11/21 21:58:13.94 49Yzjg710.net
>>167
>168の通りだけど、もう完全に形骸化している
「i」でもいいし「ページ番号」など日本語表記でもいい
ちなみに俺は「k」から「ｍ」「l」「n」と続ける
単に見間違いにくいように

176:デフォルトの名無しさん
17/11/21 22:07:12.83 L3nv/JJz0.net
今グーグル先生に聞いたらFORTRANからの名残だってでてきた

177:デフォルトの名無しさん
17/11/21 22:14:29.41 wrH3tJZg0.net
>>170
昔読んだVBだかVBAだかの書籍にはトピックとして掲載してた書籍もあったような記憶が

178:デフォルトの名無しさん
17/11/21 22:17:05.57 vcSymdG+d.net
>>168-170
ありがとうございます！
ホント助かりました！
引っ掛かり進まなかったので、これで進みます。
納得できてよかったです
ありがとうございます

179:デフォルトの名無しさん
17/11/21 22:17:55.51 vcSymdG+d.net
>>171さんもレスありがとう！

180:デフォルトの名無しさん
17/11/21 22:18:54.65 2WJixd7Q0.net
integerのiだと思ってたわ

181:デフォルトの名無しさん
17/11/21 22:47:14.99 FV1Lkm8B0.net
>>167
数学でijkは行列などの添え字で使う。
fortranでネストしたループ回すときって、微分方程式を離散化したものを解いたりするパターンが多くて、
二次元や三次元の多次元配列を使ってるだろうから、自然とijkになる。
で、数学のiはintegerからきてる、といったぐあいでは？

182:デフォルトの名無しさん
17/11/21 23:38:11.98 vcSymdG+d.net
>>174、174
数学からなんですか？！
プログラムと数学は違うものと思っていました。ありがとう

183:デフォルトの名無しさん
17/11/22 06:03:08.32 nhDpu2iz0.net
今から60年前にアメリカのIBM社で開発されたFORTRAN(フォートラン)というコンピューター言語があって
そこで変数名の頭文字がI以降なら整数型と定義されたのが始まり
ループカウンターは整数だからFOR文でもIを使ったという歴史がある
一方で昔のBASIC言語ではすべての変数が実数型というのが基本仕様だったので、Iを使う意味はあまりなかったけど、
FORTRANに憧れた世代が書き方を真似してそのまま定着した
という年寄りの昔話

184:デフォルトの名無しさん
17/11/22 14:34:48.52 NEZKz7+Jn
質問です。

マクロ有効ブックがデスクトップにある時はマクロが動くのに
ブックが他のフォルダにあると、マクロが動きません。
原因が判る方いらっしゃいますでしょうか？

因みにコードは以下の通りです。シートコピーの所で躓きます。

Sub フォーム()
'フォームベースを日数分コピー

Dim fd As Date, ed As Date '月初月末
Dim x As Integer, i As Integer '日数とシート枚数
Dim ans '入力欄に入力された値

ans = Application.InputBox("YYYY/MM形式で入力")
fd = DateValue(ans & "/1") '年/月/1　日となる
ed = DateSerial(Year(fd), Month(fd) + 1, 0)
x = Day(ed) '月の日数

For i = 1 To (x - 1) '日数分のシートを生成

Sheets(1).Copy After:=Sheets(Sheets.Count)

Next i '繰り返し

Sheets(1).Range("F1").Value = DateSerial(Year(fd), Month(fd), 1)

End Sub

185:デフォルトの名無しさん
17/11/22 18:32:45.15 mA48vywq0.net
>>176
数学、論理学とは非常に近しいと思う。
関数型プログラミングてスタイルもあるし、
数学の証明をある程度自動化する言語もある。CoqとかAgdaとか。
VBAにもそろそろ高階関数が欲しいですね、MSさん期待してます。

186:デフォルトの名無しさん
17/11/22 18:50:12.14 k1sKIAfY0.net
愛があるからかと思った

187:デフォルトの名無しさん
17/11/22 18:53:30.30 /wgdkUUe0.net
ループカウンタにi、j、kを使うようになったのはC言語の影響が一番大きい。

188:デフォルトの名無しさん
17/11/22 20:12:17.87 Ce6/du3cM.net
どこまで使う？
自分はnまで。
ループ変数以外で1文字の変数は使わない。

189:デフォルトの名無しさん
17/11/22 20:20:06.35 t2AK8w6Da.net
出来ればkまでにしたいね。
実際は思うようにいかなくて俺もnぐらいまで使ったことある。
でも1文字辞めることもある。

190:デフォルトの名無しさん
17/11/22 20:57:00.17 fITl6ULj0.net
>>182
あんまり1文字変数は使わない
処理行数や処理列数などを使ってるわ
年取ると覚えるのが大変なんだよ

191:答えはI～N
17/11/22 21:18:19.80 W0SJQGiTM.net
>>177
> そこで変数名の頭文字がI以降なら整数型と定義されたのが始まり
嘘書くなよ...
X, Y, Z が整数型とかあり得んわ

192:デフォルトの名無しさん
17/11/22 21:46:50.38 T8s4U7Y50.net
最近デザパタに凝っててイテレーターパターンやってるけどなかなかいいよ
まあいかに多重ループしないかは大事だわ

193:デフォルトの名無しさん
17/11/22 21:49:25.89 HR2X/8WF0.net
イテレータと多重ループ回避って関係あったっけ？

194:デフォルトの名無しさん
17/11/22 21:55:38.62 T8s4U7Y50.net
>>187
いやまあ、見た目上ループ変数は減るからw
よってるからよくわからんなってるわ
すまん

195:デフォルトの名無しさん
17/11/22 22:48:54.39 HR2X/8WF0.net
VBAでイテレータパターンて難しそうだ
ループをなくす、って方向の方が良さそうです。

196:デフォルトの名無しさん
17/11/22 22:51:49.31 HR2X/8WF0.net
方向の方ｗ

197:デフォルトの名無しさん
17/11/22 23:20:15.38 pTVfJfW70.net
Excel2010です。
文字列を引数に文字列を返すユーザ定義関数を作りました。
アドインにしてチーム内に配布しようと思ってます。
試しに新規ブックで使ってみたところ、開くたびに変更していないのに保存確認メッセージが出るようになってしまいました。
関数の中の処理を全て消しても保存確認メッセージがでます。
文字列を返すだけの関数なので、保存確認メッセージを出ないようにしたいのですが、どうすればよいでしょうか。

198:デフォルトの名無しさん
17/11/23 00:02:49.97 Kpe6aW6i0.net
>>191
中身を見ないとわからない
Function Foo(bar As Long)
Foo = bar * 2
End Function
と作ってみたけど
＞開くたびに変更していないのに保存確認メッセージが出るようになってしまいました。
この減少は起きなかったよ
何か別の所に原因があると思う

199:デフォルトの名無しさん
17/11/23 06:39:11.72 Y2T7cP8D0.net
>>191
それって要するにvlookupの事？

200:デフォルトの名無しさん
17/11/23 13:05:29.27 IQVJTYbd0.net
>>192
簡単に書くとこんな感じの関数です。
Function Kubun(code as string) as string
if (left(code,3) = "123") then Kubun = "A"
end function
if文が大量に続くので共通化してアドインで配布しようと思ってます。
これをKubun.xlbとしてアドインフォルダに保存しました。
新規BookでセルA1に123、セルB1に =Kubun(A1) と入力したところ
セルB1にAと表示され、関数は機能しました。
その後保存した新規Bookを開き何もせず閉じようとすると保存確認メッセージがでます。

201:デフォルトの名無しさん
17/11/23 13:22:13.30 fJlhhdGs0.net
>>194
再計算されてるから
値は変化しないけどセルの内容は更新されていると予想

202:デフォルトの名無しさん
17/11/23 13:42:02.49 UTTVtMan0.net
>>194
アトインって *.xla じゃなかったっけ？
*.xlb だとなんかいいことあるの？
（ツールバー設定とかを記憶するファイルだと思ってた）

203:デフォルトの名無しさん
17/11/23 14:06:43.11 1VQF43Qed.net
>>194
xlbってなんだっけ？
xlamじゃないの？

204:デフォルトの名無しさん
17/11/23 14:07:06.07 1VQF43Qed.net
かぶった

205:デフォルトの名無しさん
17/11/23 14:35:16.43 IQVJTYbd0.net
すいません。拡張子は違ったかもしれません。

206:デフォルトの名無しさん
17/11/23 15:49:16.74 AvEDQSYF0.net
>>194
ネットで検索してみると回答は>>195氏の「再計算」で正解だと思うよ
そのユーザー定義関数の中で使ってる関数の中に再計算が発生する関数が含まれているのでは？
簡単な例でいくと新規ブックのセルA1に=TODAY()と入力し確定、そのブックを保存し閉じる
そのブックを開くとTODAY関数による再計算が発生するため何もせずに閉じようとしても保存確認出る
それと同じことでは

207:デフォルトの名無しさん
17/11/23 17:02:33.93 IQVJTYbd0.net
>>200
192の通り使っているのはif文とLeft関数だけです。
試しに関数の中の処理を全て消してみたのですが、
状況は変わりませんでした。

208:デフォルトの名無しさん
17/11/23 17:02:38.88 mWIv05A8x.net
>>115
要らない

209:デフォルトの名無しさん
17/11/23 17:22:13.82 k3nQdCAx0.net
>>201
おそらく
A1が変わってないときに、=Kubun(A1) という式が必ず同じ値を返すという「保証」ができないので
B1セルが変更されている可能性を排除できない
ということで変更されている（可能性がある）と判断されてる
ユーザ定義関数は中身チェックしないで非決定的だって判断だな
シート開くときに再計算するかどうかのオプション設定なかったっけ？最悪手動かな

210:デフォルトの名無しさん
17/11/23 17:30:51.41 JDomtUrWp.net
>>201
その関数にDebug.print 文を仕込んでおいて
呼ばれたかどうかを確認してみたら？

211:デフォルトの名無しさん
17/11/23 19:42:47.05 IQVJTYbd0.net
>>203
保存確認メッセージを防ぐ方法はないですかね？
>>204
関数は呼ばれていますが、それだと何か方法ありますか？

212:デフォルトの名無しさん
17/11/23 20:00:32.08 fJlhhdGs0.net
>>205
関数が呼ばれると言うことは変更されると言うことだから
保存確認ダイアログが出るのが普通
savedプロパティを変更する方法とか
calculationプロパティをマニュアルにする方法とか
方法はあるかもしれないけど
他の問題が起きるようになるかもしれない

213:デフォルトの名無しさん
17/11/23 23:21:24.29 SB9DcOfL0.net
Application.DisplayAlerts = False
のこと？

214:デフォルトの名無しさん
17/11/24 11:41:27.83 h1FhSyIp0.net
質問です。Excel 2016で、Autofilerされたシートの内容を参照するために
（wsはワークシートオブジェクトです）
Debug.Print ws.AutoFilterMode　　　　　→この結果は True
Debug.Print ws.AutoFilter.FilterMode　 →この結果も True
Dim rgFilter As Range
Set rgFilter = ws.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
For Each e In rgFilter
　　Debug.Print e
Next e
こんな感じで参照しようとしてるんですが、
参照してるシートでフィルターが掛かっていても、いなくても
同じように全件（25行なら25行）がイミディエイトに表示されます。
絞り込まれた結果のみを表示するためにはどうしたら良いのでしょうか？

215:デフォルトの名無しさん
17/11/24 11:52:22.18 BOT2k7iW0.net
>>208
Set rgFilter = ws.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)

216:デフォルトの名無しさん
17/11/24 12:05:42.58 h1FhSyIp0.net
>>209
素早いご回答ありがとうございます。
修正してみましたが、今度は絞込みあり/なし何れも1行だけになりました
何だか難しい操作ですねえ…

217:デフォルトの名無しさん
17/11/24 12:12:04.66 h1FhSyIp0.net
Dim MaxRow As Long
MaxRow = ws.Range("A" & Rows.Count).End(xlUp).row
これを追加して、
Set rgFilter = ws.Range("A1:A" & MaxRow).CurrentRegion.SpecialCells(xlCellTypeVisible)
にしてみても、結果は>>208と同じになりました。
んー謎です

218:デフォルトの名無しさん
17/11/24 13:34:47.29 bxAooAvMa.net
>>205
あるにはあるけどクソめんどくさいぞ
すべてのセルの初期値保持しといて、閉じるときに確認して値に変更なければsavedをtrueにしてから閉じる、とかね

219:デフォルトの名無しさん
17/11/24 16:52:13.42 x6NJ51zce.net
Sheets("Sheet1").Columns(2).Insert Shift:=xlToLeft
Sheets("Sheet1").Columns(2).Insert Shift:=xlToRight
この二行の動作の差が分からないので
違いを教えてください

220:デフォルトの名無しさん
17/11/24 17:34:32.78 HKDmIDHRH.net
>>213
現在のcolumns(2)の中身が左にずれるか、そのままか、かな？
当てずっぽうだけど。

221:デフォルトの名無しさん
17/11/24 19:18:42.44 V+PY16OM0.net
>>206
>>212
アドインをあきらめます。
ありがとうございました。

次ページ