15/01/21 13:03:28.22 vxIgxT3t
>>108
たしか
エクスポート/インポート を自前で作らないと駄目じゃなかったかな
それか
インポート時に
1) 一旦クラスモジュールとして インポートして
2) Sheet1のモジュールへ コピペ
3) 1)のクラスモジュール削除
とかね
121:デフォルトの名無しさん
15/01/21 14:10:56.42 NByG1E6b
>>111
レスありがとうございます。
教えていただいた二通りの方法は、VBAでプログラムを組めば自動的に
実行できますか？
それとも手作業でやるしかないでしょうか？
122:デフォルトの名無しさん
15/01/21 14:37:19.71 eny8H5q0
ソース一式を出力するなら
URLﾘﾝｸ(d.hatena.ne.jp)
EXCELファイル内のVBAプロジェクトのソース一式をエクスポートする
を見れば
123:デフォルトの名無しさん
15/01/21 15:03:39.62 vxIgxT3t
>>112
多分VBAで可能なはず
職場は EXCEL2010だけど自宅は未だに EXCEL97なんで
現状 超古いEXCELでしか試せないのよ
これがまともに動けばこれの応用でできるとおもうけど
With ThisWorkbook.VBProject.VBComponents("sheet1").CodeModule
.InsertLines .CountOfLines, "'コメント"
Debug.Print .Lines(1, .CountOfLines)
End With
上を実行すると
sheet1のモジュールの最後に
'コメント
が追加されかつイミディエイト へソースが表示されるハズです
124:デフォルトの名無しさん
15/01/21 19:45:06.53 SYTiPYt8
つーか、シートのコピーじゃいかんの？
125:デフォルトの名無しさん
15/01/21 22:05:43.84 ilOt01Hf
Excel2013でユーザーフォーム内のテキストボックスにログを出力するようにしたいんだけど、
テキストボックスが一番最後の行にスクロールしてくれない。
Textbox1.SetFocus
Textbox1.CurLine = Textbox1.LineCount-1
ではダメなんですかね？
126:デフォルトの名無しさん
15/01/21 22:06:32.26 NByG
127:1E6b
128:デフォルトの名無しさん
15/01/22 09:30:51.95 4WNaJbbR
Set A = Worksheets("Sheet1").Cells.Find(B)
If A Is Nothing Then Exit Sub
Else A.Select
Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = Date
この処理で、検索して見つかったらそのセルを選択して、
その後アクティブセルからいくつか移動したセルに日付を入れてるんだけど
選択→その位置から移動 の２回の処理をオブジェクト変数Aを使って１回で処理したいんだけど
どうしたらいい？
129:デフォルトの名無しさん
15/01/22 09:36:06.38 vsxHNAsj
Cells(A.Row, A.Column + 1).Value = Date
とか
A.offset(略 = 略
とか
130:デフォルトの名無しさん
15/01/22 09:38:23.54 vsxHNAsj
あとexit subするならelseでなくend ifでいいよ
いやend ifも要らないか
131:デフォルトの名無しさん
15/01/22 11:44:29.12 4WNaJbbR
なるほど(・ω・)
132:デフォルトの名無しさん
15/01/22 14:09:02.53 4WNaJbbR
ある列に↓のようにリストがあって
生産課 山田太郎 様
技術開発課 田中次郎 様
総務課 鈴木 様
...
フォームのテキストボックスに苗字を入力して、ボタンを押したら
別のテキストボックスに一致するセルの中身を出すようにしたいんだけど
同じ苗字が
133:二人以上いる時に、まとめて抽出するにはどうしたらいい？ findで範囲内で一致するもの全てを同時に返すとかできますか？
134:デフォルトの名無しさん
15/01/22 18:52:36.11 dmH5GNro
正規表現
135:デフォルトの名無しさん
15/01/22 20:19:58.26 vNSjR/4e
>>122
findはダメだろ
普通にfor nextとかで繰返し一致する名前を全て書き出せばいい
136:デフォルトの名無しさん
15/01/22 22:23:31.11 +1w7MZS/
オートフィルタ
137:デフォルトの名無しさん
15/01/22 23:04:07.41 DV1cEPLZ
>>123
なにそれ？
ろくでなし子さん？
138:デフォルトの名無しさん
15/01/22 23:22:43.93 dmH5GNro
画像検索しちまったじゃねーか
139:デフォルトの名無しさん
15/01/23 06:06:36.11 lAQTOxJ2
>>105
そもそも知識無いの丸わかり（笑）
140:デフォルトの名無しさん
15/01/23 08:10:55.33 db6c84vZ
>>97
句読点にカンマ使うような低脳には誰も答えないよ