Excel VBA質問スレ Part5

Excel VBA質問スレ Pa ..

855:デフォルトの名無しさん
08/02/26 21:57:03
830です。
>>834 さん
なるほど！。値を渡す構文になってしまっていたのですね！
>>836 さん
本当だ！動きました。ありがとうございました。
834さん。836さん。お陰様で疑問が解決しました。感謝！感謝！

856:デフォルトの名無しさん
08/02/26 22:29:04
>>854
気にすると体に毒だぞ

857:デフォルトの名無しさん
08/02/27 09:51:07
>>856
つまり対策はないと？

858:デフォルトの名無しさん
08/02/27 09:52:18
ﾓﾆﾀの色温度を変えると白を赤っぽく変えたりできるよ

859:デフォルトの名無しさん
08/02/27 18:33:00
>>857
俺ら低レベルではわからないんだよ。

860:デフォルトの名無しさん
08/02/27 21:33:21
>>854
再現する最低限の構成で､ブックもしくはユーザーフォームモジュールをうp
情報全く無しじゃ､さすがに改善法どころか改善可能か否かすらもわからんわな

861:デフォルトの名無しさん
08/02/27 23:22:06
俺らはそれだけVBAをさわってないってことさ。

862:デフォルトの名無しさん
08/02/28 00:26:29
現実の出来事かどうかすらあやしい

863:デフォルトの名無しさん
08/02/28 05:23:21
他のフォームでも同じ現象になるのか検証したの？

864:デフォルトの名無しさん
08/03/01 04:27:20
エクセルで作った表を画像として保存するマクロってありますかねぇ？

865:デフォルトの名無しさん
08/03/01 04:55:31
>>864
VBAの範囲だけじゃ無理だけど実現可能

866:入院中の側近 ◆0351148456
08/03/01 08:15:23
>>864
(っ´▽｀)っ
暇なので作ってみたよ☆

Option Explicit

Private Declare Function GetVersionExA Lib "KERNEL32.DLL" ( _
　　ByRef pVersionInfo As OSVERSIONINFO _
) As Integer
Private Declare Sub keybd_event Lib "USER32.DLL" ( _
　　ByVal bVk As Long, _
　　ByVal bScan As Long, _
　　ByVal dwFlags As Long, _
　　ByVal dwExtraInfo As Long _
)
Private Const VK_SNAPSHOT As Long = &H2C
Private Const VK_MENU As Long = &H12
Private Const KEYEVENTF_KEYUP As Long = &H2

Private Type OSVERSIONINFO
　　dwOSVersionInfoSize As Long
　　dwMajorVersion As Long
　　dwMinorVersion As Long
　　dwBuildNumber As Long
　　dwPlatformId As Long
　　szCSDVersion As String * 128
End Type

(次レスに続く)

867:入院中の側近 ◆0351148456
08/03/01 08:16:12
(>>866の続き)

Public Sub printScreen()
　　Dim pVersionInfo As OSVERSIONINFO
　　pVersionInfo.dwOSVersionInfoSize = Len(pVersionInfo)
　　If pVersionInfo.dwMajorVersion >= 5 Then
　　　　Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
　　Else
　　　　Call keybd_event(VK_MENU, 0, 0, 0)
　　　　Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
　　　　Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0)
　　　　Call keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0)
　　End If
End Sub

868:入院中の側近 ◆0351148456
08/03/01 08:36:24
(っ´▽｀)っ
>>866-867はPrintScreenするマクロだよ。
あとは任せた☆(っ´▽｀)ﾉｼ

869:デフォルトの名無しさん
08/03/01 08:41:50
割り込みで申し訳ないですが、パラレルポート制御を
考えているんですが、VBIOSCMみたいなDLLってVista対応版は
ありますか？
その他でパラレル制御の方法はありますか？
是非ご教授願います。

870:デフォルトの名無しさん
08/03/01 10:07:39
PC内のフォルダおよびファイルを全て
エクセルシートに書き出したい。
DIR関数でやってみたけど、
フォルダを見つけたら階層を掘って、掘り尽くしたら戻って…
て処理が上手く行かない。
ご協力頼んます

871:デフォルトの名無しさん
08/03/01 10:10:05
(っ´▽｀)っ　はプロかな？凄いな

872:入院中の側近 ◆0351148456
08/03/01 10:21:41
>>870
(っ´▽｀)っ
ヒント：再帰

873:入院中の側近 ◆0351148456
08/03/01 10:28:33
>>870
(っ´▽｀)っ
こういう関数を作る。

引数：フォルダ
処理
・引数のフォルダの情報をワークシートに書き出す。
・フォルダ内の全てのファイルの情報をワークシートに書き出す。
・フォルダ内の全てのサブフォルダに対し、それを引数として当関数を呼び出す。

(っ´▽｀)っ
ちなみにエラーをキャッチしておかないと、
参照不可のフォルダ、ファイルのところで処理が止まるよ。

ファイル、フォルダに関してはScripting.FileSystemObjectを使うといい。

874:870
08/03/01 11:16:18
>(っ´▽｀)っ
ありがとう。やってみます。

875:デフォルトの名無しさん
08/03/01 13:25:08
なんだ、ファイルを全て書き出したいと言うから中身を書き出したいのかと思ったぜ。
単にファイル名を書き出したいだけなんだな。

876:デフォルトの名無しさん
08/03/01 21:36:05
FSOに慣れておくとASPにもVBSにも使えるからオトクです(^ω^)

877:デフォルトの名無しさん
08/03/01 23:32:26
>>870
URLﾘﾝｸ(www.atmarkit.co.jp)

878:デフォルトの名無しさん
08/03/02 23:54:52
物凄く基本的な事で申し訳ないのですが・・・、処理待ちでスリープを掛けたく、
　WScript.sleep (250)
と記述していますが、エラー424 オブジェクトが必要ですというエラーが出るのです。

何か参照設定が足りないんでしょうか。。

879:デフォルトの名無しさん
08/03/02 23:56:42
ググれよ・・・

880:デフォルトの名無しさん
08/03/03 00:01:10
>>878
WScript.exeを参照設定しろー

881:デフォルトの名無しさん
08/03/03 00:45:53
>>880
ありがとうございます。
WScript.exeを参照し、Windows Script Host（Ver5.6)を参照設定に加えたのですが
やはり同じエラー出ました。
参照の問題では無さそうなので、設定も含めた他の部分をもう一度見直して見ます。

>>879
当然質問前に検索したのですが、WScriptの参照設定について記述されたページが見つからなかったもので・・・。
すみませんでした。

882:デフォルトの名無しさん
08/03/03 01:15:50
Win32 APIのSleep関数を使えばいいじゃない。

883:デフォルトの名無しさん
08/03/03 01:22:50
>>878
それって、Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)じゃいけないの?

884:デフォルトの名無しさん
08/03/03 10:54:00
自分が過去に作ったソースをよく探すんですけど、
Excelファイルが散在してるし、開いてからAlt+F11を押す手間とか効率悪いです。
GoogleDesktopSearch用Excel VBAプラグインってないもんですかね？

885:デフォルトの名無しさん
08/03/03 11:52:08
別にプラグインじゃなくてもブックファイルからVBAを抽出するだけでもよさそうな。
まぁ、そういうものがあるかどうかって話になるけど。

886:デフォルトの名無しさん
08/03/03 11:59:12
>>885
VBAのコードは、マクロでファイルにexportできるから、作ろうと思えば比較的簡単に作れる。
ただし、そのexportしたものがGDSでIndexingされるかどうかは、別の話。

887:デフォルトの名無しさん
08/03/03 13:43:25
こう？　URLﾘﾝｸ(officetanaka.net)
保存するとき拡張子に.txtを追加してあげればいいよね。
とりあえず何とかなりそうな気がする。どもども。

888:できたよん
08/03/03 18:53:27
VBAソースをいっぺんに吐き出すマクロ(Excel2003)
準備
・A列にファイルリストを作る
　参考：URLﾘﾝｸ(www.vbalab.net)
・ツール→マクロ→セキュリティ→信頼できる発行元
　のVBプロジェクトへのアクセスを信頼するをON

ext(1) = ".bas": ext(2) = ".cls": ext(3) = ".frm"
Set xl = CreateObject("Excel.application")
xl.Application.Visible = True
xl.AutomationSecurity = msoAutomationSecurityForceDisable 'マクロ無効
For i = 1 To 9999
　bookName = Cell(i, 1)
　If bookName = "" Then Exit For
　Set bk = xl.Workbooks.Open(bookName, False, True)
　With bk.VBProject.VBComponents
　　For j = 1 To .Count
　　　If .Item(j).Type <= 3 Then _
　　　　.Item(j).Export bookName & "_" & .Item(j).Name & ext(.Item(j).Type) & ".txt"
　　Next
　End With
　bk.Close SaveChanges:=False
Next

889:デフォルトの名無しさん
08/03/04 12:34:14
すいません。KILLの使い方が分かりません。
たとえば、BOOK1のファイルごと、削除したいのですが
どうゆうｺｰﾄﾞで書いたらいいのですか？
　

890:デフォルトの名無しさん
08/03/04 12:41:43
killはファイルを消すときに使う

891:デフォルトの名無しさん
08/03/04 13:15:20
kill "your.xls"

892:デフォルトの名無しさん
08/03/04 16:57:42
Kill "BOOK1.*"

893:デフォルトの名無しさん
08/03/05 11:30:59
質問させてください。

.value = "hogeの値は" + hoge + "です"

の表記をしたいのですが、""テキストと、変数を並べて表記する方法が分かりません。
+で結合ではありませんでした。
VBAでのテキストと変数の表記方法を教えてくださいませ。

894:デフォルトの名無しさん
08/03/05 12:00:21
>>893
VBの文字列結合は &

895:デフォルトの名無しさん
08/03/05 12:44:58
Private Sub CommandButton1_Click()
Kill "BOOK1.*"
End Sub
book1のファイルのコマンドボタンでこれを実行すると、ファイルが
みつからないとエラーだでてしまうのですが・・・
ファイルをかっこよく消したいです。

896:デフォルトの名無しさん
08/03/05 13:14:45
＞みつからないとエラーだでてしまうのですが・・・
かっこわりw

もしかして、ワイルドカードが使えないんじゃないの?

897:デフォルトの名無しさん
08/03/05 13:17:44
*←これでしょ？
でも使えないの・・・

898:デフォルトの名無しさん
08/03/05 14:18:02
*　これを見るだけでなんか恥ずかしくなってしまうよな

899:デフォルトの名無しさん
08/03/05 14:42:21
違うの？

900:デフォルトの名無しさん
08/03/05 15:30:35
すいません、ExecuteExcel4Macroで、ループを使わずに
一気に範囲データを読み込むことは出来ないのでしょうか？

901:デフォルトの名無しさん
08/03/05 17:00:06
Dim d(100,100)AS Douale3Dim rng AS Range
rng=Range("A1:C3")
このrngから配列dに行列を入れ替えて代入する方法がわかりません。
どのようにすればよいでしょうか？

902:デフォルトの名無しさん
08/03/05 17:06:38
Excel VBAとかマジわかんないけど
If ActiveCell.Column <> 1 Then
Exit Function
End If
じゃだめなの？

903:デフォルトの名無しさん
08/03/05 17:29:47
>>901
訂正します。

Dim d(100,100)AS Double
Dim rng AS Range
rng=Range("A1:C3")

d=(double)Transport(rng)
↑
このrngから配列dに行列を入れ替えて代入する方法がわかりません。
どのようにすればよいでしょうか？

904:デフォルトの名無しさん
08/03/05 20:34:08
>>900
おれも尻鯛

905:デフォルトの名無しさん
08/03/05 21:17:08
>>900
まずはどうしてもループが使えない事情があるなら説明してみろ
単に使いたくないとか時間が掛かるとかなら帰れ

906:900
08/03/05 21:19:31
>>905
お前に言う必要は無い。
わからないならレス不要

907:900
08/03/05 21:38:46
自己解決しました。
お前らマジ役立たず

908:900
08/03/05 21:39:40
なんだか偽者出てるみたいですが、900です。

>>905
ループで一度データをコピーするプログラムを作成したのですが、
開始から終了までかなり時間がかかってしまうことが分かりました。
処理時間を軽減できないかと考えて、範囲ごとコピーできないかと考えた
のが理由です。

909:デフォルトの名無しさん
08/03/05 21:43:04
縦横変換したものを一旦シートに貼り付けて、それから変数に代入しろ

910:デフォルトの名無しさん
08/03/06 02:28:41
>>900
速度向上のためにはSelectするな！withを使え！
Rangeで取り込んで配列に一括取り込み。

911:デフォルトの名無しさん
08/03/06 02:32:43
>>903
まず型変換して代入で可能
d=CDbl(rng)

あと行列逆転はFor～Nextで１セル毎にループでできるが、一括でできる方法はないかな？

912:デフォルトの名無しさん
08/03/06 08:45:45
速度気にするなら、まずExecuteExcel4Macroでやろうってのが間違いだと気付け

913:デフォルトの名無しさん
08/03/06 09:06:42
>>908
ExecuteExcel4Macroなんか使って読みにくく、また他に使い途もないコードを書くより、
ADO使って"SELECT * FROM [Sheet1$]"みたいにやった方が、将来的に考えて
色々と応用できて幸せになれる確率が高いぞ

914:900
08/03/06 09:50:11
御回答ありがとうございます。
ExdcuteExcel4Macroは使わない方針でいってみたいと思います。

915:デフォルトの名無しさん
08/03/06 09:59:52
>>911
>>909

916:デフォルトの名無しさん
08/03/06 10:11:06
Publicで宣言したプロシージャを
ツール→マクロ→マクロとメニュー選択した際のダイヤログボックスに
表示させない方法があったと思うのですが、
どうやればいいでしょう？？？？

917:初心者
08/03/06 11:40:13
初歩的な質問かと思いますが、可能な限り過去の書き込みを検索しましたが、解決できませんでしたので、質問させていただきます。

Ａ１からＡ１０に数値の値が入っているとします。
もしこのＡ１からＡ１０までの値がすべて０だったら、○○というプログラムを実行する、というマクロを組みたいと思っています。

If Worksheets("Sheet1").Range("A1:A10") = 0 Then
Call ○○
End If

というふうに自分では作ってみたものの、うまくいきません。
アドバイスの方よろしくお願いします。

918:デフォルトの名無しさん
08/03/06 15:42:25
>>915
シート作成は速度の関係上できるかぎり避けたいのです。
関数やプロパティで行列を逆に入れ替える方法はないでしょうか？

919:デフォルトの名無しさん
08/03/06 15:47:34
>>918
計測してから物を言え。

920:デフォルトの名無しさん
08/03/06 16:12:20
>>917
dim i as integer
for i = 0 to 9
if worksheets("sheet1").range("a1")..text <> "0" then exit for
next
if i == 10 then
call ***
end if

921:デフォルトの名無しさん
08/03/06 16:13:18
あ、思いっきり間違ってた。
if worksheets("sheet1").range("a1")..offset(i,0).text <> "0" then exit for
が正解。

922:デフォルトの名無しさん
08/03/06 16:47:13
>>919
シート作成するのが通常よく使うよね。
VBAではあまり速度を問われないことがおおいから。
私もそうですし他の方法しか教えられない。

>>918
気長にVBAｽﾍﾟｼｬﾘｽﾄを待ちましょう。

923:919
08/03/06 16:53:13
スペシャリストの俺に喧嘩売ってんのか？

924:デフォルトの名無しさん
08/03/06 17:02:20
取りうる方法は三つしかない。
・行列を変換しながら1セルごと配列にコピー
・rangeを配列にまるごとコピーした後に、行列を変換しながら別の配列に代入
・行列を変換して別のシート（同じシートでもいいが）にコピーしてから、rangeを配列にコピー

実行する内容や量やExcelのバージョンやPCのスペックによって変わるから、
自分で測って一番速い奴を使え。

925:デフォルトの名無しさん
08/03/06 17:24:23
んなこたーない。

dim rng as range
dim d as variant
set rng = worksheets("sheet1").range("a1:c3")
d = application.worksheetfunction.transpose(rng)

926:デフォルトの名無しさん
08/03/06 18:43:57
教えて先生！！
あたしシートの追加をしたいのぉ

Sub Macro1()
Dim unko As String
unko = "ウンコ"
Sheets.Add ？？？？？
End Sub

変数名を取得して、その変数名をシート名としたシートを追加したいというかぁ
リネームじゃなくて、ダイレクトに追加できればいいなぁとおもうの。
エロイ人おしえてーー。

927:デフォルトの名無しさん
08/03/06 20:07:32
>>901
dがVariant型でよければ、
d = WorksheetFunction.Transpose(Range("A1:C3"))
でｄには縦横入れ替えた2次元配列が格納される。

928:927
08/03/06 20:10:40
よく見たら>>925でがいしゅつじゃねーか。

929:デフォルトの名無しさん
08/03/06 20:38:03
>>916
そういう時は、dummyで使わない引数をプロシジャの()の中にセットする様にしているけど邪道か？

930:デフォルトの名無しさん
08/03/06 21:14:07
>>925

dim rng as range
dim tmp as variant
dim d as double
set rng = worksheets("sheet1").range("a1:c3")
tmp = application.worksheetfunction.transpose(rng)

最後に
forループで
tmp(i,j)からCDbl(d(i,j))に代入しました。
かなり速度が改善しました。
ありがとうございました。

931:デフォルトの名無しさん
08/03/06 21:15:09
クラスを書く習慣を付ける

932:916
08/03/06 22:26:58
>>929
問題なしです！ありがとうございました！

933:デフォルトの名無しさん
08/03/06 23:06:52
>>895
book1を開きながらbook1ファイルは削除できまい。
あと、book1は何処に保存してあるのか。

934:デフォルトの名無しさん
08/03/07 00:08:32
>>931
誰に言ってるの？
必要ならつけりゃいいが、必要ない場合もある。
たとえばシートモジュールでMe.なんてウザイだけ。

935:デフォルトの名無しさん
08/03/07 00:24:40
>>934
何だよヴォケ!
クラスを明示するの当たり前だろ？
>>925みたいなコードもブックから明示してないからまだまだだね。
ブックの上のApplicationも明示しないとね。

936:デフォルトの名無しさん
08/03/07 03:21:54
相手の欠点はよくみえるが自分の欠点はみえないんだよ。
こどもじゃあるまいし、書いてることをそのまま実行したりはしないよ。
ヒントがわかれば十分。

937:926
08/03/07 05:40:25
うぅ・・・分かる方、いらっしゃいましたらhelpです・・・＞＜

もしくは、追加→リネーム　の方法がベストなのでしょうか。
bookを開いてから、何枚のシートを追加したかの監査変数を使う事が避けられれば理想なのですが・・。

皆さんどのようにしているのかも興味があります。
何卒よろしくお願いします。
お礼にこれあげます。>+(

938:デフォルトの名無しさん
08/03/07 07:08:02
>>937
sheets.Add().name="ウンコ"

939:938
08/03/07 07:12:38
>>937
試してみたら（）も省略できた

sheets.Add.name="ウンコ"

940:デフォルトの名無しさん
08/03/07 08:30:45
>>937
一応マジレスしておくと、質問するならふざけるな。
ふざけないで質問してたらきっと即レスついたはずだ。

941:895
08/03/07 09:04:48
933さんありがとうございます。
>あと、book1は何処に保存してあるのか。
これは、C:\Documents and Settings\ｘｘｘ
と指定すればいいのでしょうか？

942:895
08/03/07 09:17:12
それと、例えば、エクセルのファイルネーム”あ”.xlsのファイルにパスワード
を設けて（例えばパスワードは10）他の人に勝手に開かれないようにしてるのですが
人のＰＣのデータを除き見るやから達からデータを守る為、パスワードの入力を
例えば3回失敗したらファイルごと、どこのディレクトリに合っても強制削除したいのですが
どうｺｰﾄﾞを書いたらいいのでしょか？

943:デフォルトの名無しさん
08/03/07 10:34:01
自分自身のマクロでそれをするのは無理。

944:デフォルトの名無しさん
08/03/07 11:05:26
>>935
おろ？
君は>>925と>>931じゃなかったの？
似たようなこといつも言ってるMougの馬鹿を一人知ってるんだが。
ってか彼はうるさい割にはいつもシートからしか明示しないがね。

945:925
08/03/07 11:16:26
なんだか知らんけど、俺を巻き込まないでくれ・・・

946:デフォルトの名無しさん
08/03/07 13:19:45
質問です。私の持っているVBA本に
「同一モジュール内に同名の行ラベルを設置できない」
って書いてあったので、検証しようと思い以下のサンプルコードでテストしました。

'　　プロシージャ「p1」
Public Sub p1()
　On Error GoTo ErrHandler

　Err.Raise 10
　Exit Sub
ErrHandler:
　Debug.Print "エラー発生①"
End Sub

'　　プロシージャ「p2」
Public Sub p2()
　On Error GoTo ErrHandler

　Err.Raise 10
　Exit Sub
ErrHandler:
　Debug.Print "エラー発生②"
End Sub

同一モジュール内にプロシージャ「p1」も「p2」も「ErrHandler:」という行ラベルを設置していますが、
それぞれの「On Error GoTo」はきちんとプロシージャ内の「ErrHandler」へ処理しています。

これってどういう事なんでしょう？
私の持ってるVBA本が間違っているのでしょうか？？？

947:デフォルトの名無しさん
08/03/07 13:46:18
>>946
はい、その通り間違っているので、書名を公開してみんなが不幸せになるのを防ぎましょう。

948:デフォルトの名無しさん
08/03/07 20:56:10
マクロの中で自分のファイル名(フルパスで)を取得するにはどうすればよいですか？

949:デフォルトの名無しさん
08/03/07 21:02:21
thisworkbook.pathとname

950:デフォルトの名無しさん
08/03/07 21:29:13
>>942

Sub hoge()
　 Dim a As String
　 Dim w As Object
　 Dim v As Object
　 a = ThisWorkbook.Path & "\" & ThisWorkbook.Name
　 Set w = CreateObject("WScript.Shell")
　 Set v = w.exec("cmd.exe /c del """ & a)
　 Application.Quit
' 　Do Until v.stdout.atendofstream
' 　　MsgBox (v.stdout.readline)
' 　Loop
End Sub

951:デフォルトの名無しさん
08/03/07 22:47:43
>>950
それ、マクロ無効にすると開けちゃうから。

952:デフォルトの名無しさん
08/03/07 23:48:02
「クラスを書く習慣をつける」って書いたの俺なんだけどさ(>>935じゃない)
別件(Public云々)にレス付けたつもりだったんだが、曲解した挙げ句に意味不明な粘着を発揮してるキチガイが居るな
なんだよ「Mougにホゲホゲ」ってよ
見えない敵が見えてる系のキチガイの考えることはマジで分からんｗ

> 934 名前：デフォルトの名無しさん [sage] 投稿日： 2008/03/07(金) 00:08:32
> >>931
> 誰に言ってるの？
> 必要ならつけりゃいいが、必要ない場合もある。
> たとえばシートモジュールでMe.なんてウザイだけ。

> 944 名前：デフォルトの名無しさん [sage] 投稿日： 2008/03/07(金) 11:05:26
> >>935
> おろ？
> 君は>>925と>>931じゃなかったの？
> 似たようなこといつも言ってるMougの馬鹿を一人知ってるんだが。
> ってか彼はうるさい割にはいつもシートからしか明示しないがね。

953:デフォルトの名無しさん
08/03/08 00:04:09
Excel2003
XP SP2

ブックを非表示にして、フォームをタスクトレイに常駐させてタイマー処理は実装可能でしょうか？

教えてエロい人

954:デフォルトの名無しさん
08/03/08 04:24:55
YES

955:944
08/03/08 04:39:19
>>952
とぼけても無駄無駄ｗ
お前はMougでも感じ悪いけどこっちでも感じ悪いな。

956:デフォルトの名無しさん
08/03/08 05:04:10
NO

957:デフォルトの名無しさん
08/03/08 08:28:43
とぼけてるのがいるなｗ

958:デフォルトの名無しさん
08/03/08 12:35:40
見えない敵と戦う聖戦士がム板にも湧いてきて、粘着してくるとは思わなんだわ
悪いことは言わないからMougとやらで聖戦に興じてろや
釣りにしてもキモすぎるし、真性だとしても治療に付き合う義務はない

959:デフォルトの名無しさん
08/03/08 15:06:06
アクティブじゃないシートの選択しているセルの値ってとれないでしょうか？
シート名が特定できれば、一旦アクティブにして値をとって戻るとか出来るのですが
いろいろなシート(名)を対象に出来るようにと思っています
よろしくお願いいたします

960:デフォルトの名無しさん
08/03/08 16:48:31
>>958
いらんおせっかい書くからだよ。
つまらん自説を述べるから粘着される。

961:デフォルトの名無しさん
08/03/08 23:07:05
VBEで挿入できるものに、ユーザーフォーム、標準モジュール、クラスモジュールの3つがあるけど、
クラスモジュールだけ使ったことがない。これってどういう時に使うもんなんです？

Excel2002ですけど。

962:デフォルトの名無しさん
08/03/08 23:37:13
そのまんまクラスを書くモジュール
VBAだと継承ができないんで、独自イベントを実装したいときとか、
構造体代わりに使うとか、コントロール配列を実現させたいときに
使うぐらいしかないけどね(^ω^;)

963:961
08/03/09 08:10:28
んんん、、、判らん w ｽﾏｿまだ俺のレベルでは必要ないって事すかね www

964:デフォルトの名無しさん
08/03/09 10:25:51
ExcelVBAごときにクラスなんかいらん

965:デフォルトの名無しさん
08/03/09 10:39:07
strategy patternを使いたいときとか

966:デフォルトの名無しさん
08/03/09 15:28:15
コントロール配列を実現させたいとき＝継承
だったと思うから

「継承代わりに使いたいときだけ」
しか使わん

967:デフォルトの名無しさん
08/03/09 18:58:31
CSVの書き出しに関して、教えてください。

EXCELデータを、カンマ区切りの改行コードつきCSV形式で書き出したいのです。
↓このような感じ
項目１,項目２,項目３,改行コード（vbcrlf)項目１,項目２,項目３・・・
print # でコード記述

データの最後は改行コード（vbcrlf)で終了しなくてはいけないのですが、
そうすると当然のことですが、最後に余分な空白行ができてしまいます。

改行コードで終了するが、最後の空白行はなくす、ということは可能なのでしょうか？

「もう。無理です・・・」と泣きを入れてみたのですが、なんとかしろ、
とのお達しがあり、もし、良い方法があれば伝授いただければ助かります！！

宜しくお願いします。

968:エスパー君登場
08/03/09 19:20:08
最後に余分な空白行が出来ているというのは気のせい。

969:デフォルトの名無しさん
08/03/09 19:26:29
「余分な空白行」というのは、CRLFCRLFのことだが、もしファイル末尾がそうなっているとしたら、
それはコードのバグ。
ファイルの末尾がCRLFで終わっているなら、余分な空白行など存在しない。

970:デフォルトの名無しさん
08/03/09 19:58:51
ぐぐれ最後の改行 vb

971:デフォルトの名無しさん
08/03/09 20:08:08
ありがとうございます
「EXCEL　VBA　改行コード」で検索していたのですが、
良い方法を見つけることが出来ず、悩んでいました。
頑張って挑戦してみます

972:デフォルトの名無しさん
08/03/09 20:55:39
最後の改行と余分な空白行というのは違う意味だと思う

973:デフォルトの名無しさん
08/03/09 21:06:19
>>971
ちょっと待て。何をどう挑戦するつもりなんだ？

974:側近中の側近 ◆0351148456
08/03/09 21:56:06
(っ´▽｀)っ
EOF直前の改行は本来必要なものと考えるが。
たまにEOF直前の改行がないテキストファイルを見るが、あれはどうなの？
ちなみにviだとエラーメッセージが出るぞ。

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
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。