Excel VBA質問スレ Part5

Excel VBA質問スレ Pa ..

975:側近中の側近 ◆0351148456
08/03/09 22:01:32
(っ´▽｀)っ？？？ >>967のいう「余分な空白行」ってこういうことだよね？

"aaa\r\nbbb\r\nccc\r\n"(\r\nは改行コード)
これを
"aaa\r\nbbb\r\nccc"
にしたいってことでしょ？多分。
「『なんとかしろ、』とのお達しがあり」
ってあるけど、その「なんとかする」理由は何だろうね？
何もないのに言ってるなら、その人にもうちょっと勉強しろって言いたいんだけどね。

976:側近中の側近 ◆0351148456
08/03/09 22:02:33
(っ´ω`)っ
おもいっきりスレ違いだね
いきててごめんね

977:デフォルトの名無しさん
08/03/09 23:01:20
「余分な空行」という夢オチ

978:デフォルトの名無しさん
08/03/09 23:18:21
CSVファイルはRFC 4180の仕様だと、
最後のレコードの後には改行はあってもなくてもいいらしい。
オレの場合は最後のレコードの後には必ず改行付けるけどね。

979:デフォルトの名無しさん
08/03/09 23:25:11
975のようなテキストをメモ帳か何かテキストエディタで開いたとき、
aaa
bbb
ccc
I ← ここにカーソルが移動できる
ということを「最後に余分な空白行ができてしまう」と言っているんだと思った。
だとしたら、それは最後にCRLFを置いているからだとしか言いようがない。

980:デフォルトの名無しさん
08/03/10 01:26:00
excel2003
xp
他のシートの複数セルのSetの仕方がわかりません。

Dim Rng AsRange
Sheets("sheet2").Activate
Set Rng = Range(Cells(1, 1), Cells(2, 2))
Sheets("sheet1").Activate
Set Rng = Nothing
こう書けば一応動くのですがWithを使い
With Sheets("sheet2")
Set Rng = Range(.Cells(1, 1), .Cells(2, 2))
End With
と書いてもsheet1のA1: B2が入ってしまいます｡
よろしくお願いします。

981:デフォルトの名無しさん
08/03/10 01:40:10
Set Rng = .Range(.Cells(1, 1), .Cells(2, 2))

982:デフォルトの名無しさん
08/03/10 02:39:29
Unix文化ではうんたらかんたら

983:デフォルトの名無しさん
08/03/10 12:48:36
「#N/A」のようなエラーセルの値を変数に入れようとすると
「型が一致しません」というエラーが出るのですが、
例えばエラーセルの値をコンスタントに、「""」として処理するような
事は可能なのでしょうか？

VBAがセルのエラー値をどのように扱っているのか、
msgboxで出すことも出来ないので
困っています。

お知恵拝借できると幸いです。

984:デフォルトの名無しさん
08/03/10 13:04:33
トラップ処理すれば

985:デフォルトの名無しさん
08/03/10 13:38:14
If(IsError(...

986:デフォルトの名無しさん
08/03/10 13:39:51
URLﾘﾝｸ(www.eurus.dti.ne.jp)

987:983
08/03/10 14:27:26
>>984-986
ありがとうございます。
どちらかの方法でやってみようと思います。

988:デフォルトの名無しさん
08/03/10 16:59:57
Ctrl＋セルクリックで選択範囲を追加していけますよね
それをVBAで行うにはどうしたらいいですか？
例えば.Cells(i,j)が選択してある状態で、さらにCells(i+10,j)を追加で選択するにはどうしたらいいですか？

.Cells(i,j).Select
hoge
.Cells(i+10,j)Select ←ここで、それまでの選択範囲に追加する形にしたい

989:デフォルトの名無しさん
08/03/10 17:23:03
selectionでrange取得
rangeに新cellを追加
追加したrangeをselect

990:988
08/03/10 18:07:51
>>989
＞rangeに新セルを追加
はどうやって実現するのですか？

991:デフォルトの名無しさん
08/03/10 19:46:03
Excel2003
XP SP2

結構でかいファイルのＩ／Ｏやコピーなどの処理をワーカースレッドで行なうことは可能でしょうか？

992:デフォルトの名無しさん
08/03/10 20:46:02
>>990
union

993:デフォルトの名無しさん
08/03/10 20:52:13
勉強中の者です。初歩的な質問で申し訳ないのですが、お力添えをお願いします。

条件分岐で、"A1"セルに何か入っている場合に実行、
空欄の場合はエラーメッセージを出したく思います。

if range("A1") = true then
msgbox("実行")
else
msgbox("空欄です。")
end if

としてみたのですが、思うように動作致しません。
てっきり、false = 0 、 true　は何か要素がある。と頭にあったのでやってみたのですが、
VBAの壁にぶちあたっております。

何卒、ご助力を賜りたく存じます。よろしくお願いします。

994:デフォルトの名無しさん
08/03/10 20:57:49
=""

995:デフォルトの名無しさん
08/03/10 21:21:05
If Range("a1").Value <> "" Then
MsgBox "何か入っている"
Else
MsgBox "空欄"
End If

996:デフォルトの名無しさん
08/03/10 21:35:39
false = 0 、 true = -1
0 = false、 0以外 = true

997:デフォルトの名無しさん
08/03/10 22:03:18
if Typename(Range("A1")) <> "Empty" then ～
ではどうか

998:デフォルトの名無しさん
08/03/10 22:47:48
みなさんありがとうございます。
検証してる間にスレ落ちしてしまうと申し訳ないので、お礼だけ先に。

明日検証いたします。
本当にありがとうございました。

999:デフォルトの名無しさん
08/03/11 08:20:17
.

1000:小倉優子 ◆YUKOH0W58Q
08/03/11 08:20:37
1000ならジュースでも飲むか

1001:１００１
Over 1000 Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。