Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

312 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【76186】Re:ExcelのVBAでテキストファイルの編集...

kanabun - 14/10/10(金) 9:05 -


	引用なし

	パスワード

あと、そのままだとBOM付きで出力されてしまうので、 BOMをとって出力する方法は ht tp://qiita.com/kou_tana77/items/66b14c7649792c9703d8 とか ht tp://hatenachips.blog34.fc2.com/blog-entry-374.html などを参考にすれば、できるとおもいます。

・ツリー全体表示


	【76185】Re:ExcelのVBAでテキストファイルの編集...

γ - 14/10/9(木) 21:40 -


	引用なし

	パスワード

kanabunさんへ。
ご指摘、勉強になりました。

それぞれ別のLineSeparatorを持った二つのStreamを用意して、
ReadTextで一行読み込み、
WriteTextで一行書き込み、
と繰り返すことで可能は可能ですね。

どうもありがとうございました。

・ツリー全体表示


	【76184】タブレット端末で実行できるようにしたい...

おかわりくん - 14/10/9(木) 18:24 -


	引用なし

	パスワード

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Application.ScreenUpdating = False

　If Intersect(Target, Range("b3:iz5")) Is Nothing Then Exit Sub

　Call ido

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Application.ScreenUpdating = False

If Intersect(Target, Range("b10:iz10")) Is Nothing Then Exit Sub
　
　Call mati

　
　Cancel = True
End Sub

Sub ido()
Dim c As Range
Set c = ActiveCell

c.Select

Selection.Cut

c.Offset(1, 0).Select

End Sub

Sub mati()

Dim c As Range

Set c = ActiveCell
c.Select

Selection.copy

c.Offset(-7, 0).Select

End Sub

上記のようなダブルクリックしたとき、右クリックしたときのイベントを作成したのですが、タブレットでも上記のイベントが出来るようにするには、どうすればよいのでしょうか？
座標10に移動したい内容を作り、右クリックしたときに、座標3にその内容が移動し、移動した後はダブルクリックするごとに、下に一段下がるイベントです。

・ツリー全体表示


	【76183】Re:ExcelのVBAでテキストファイルの編集...

kanabun - 14/10/9(木) 11:17 -


	引用なし

	パスワード

LineSeparator は読み込みのとき、何を改行コードと解釈するか、に使うものだということは理解しましたが、出力するときにも、以下のようにその場で一行文字列を生成しながら書き込むときにも、LineSeparator プロパティは使えますね Sub SaveTest_UTF8() 　With CreateObject("ADODB.Stream") 　　　.Type = adTypeText 　　　.Charset = "utf-8" 　　　.LineSeparator = adLF　'◆出力時の改行コードをLFに指定　　　.Open 　　　　　　'出力文字列を生成して改行コードを付加して書き込む　　　.WriteText "これはテストです。", adWriteLine 　　　.WriteText "よろしく。", adWriteLine 　　　　.SaveToFile "D:\(Data)\temp\UTF-8_Test.txt", adSaveCreateOverWrite 　　　.Close 　End With End Sub ただし、いまやろうとしていることは改行コード込みの文字列の固まり？の出力なので、そのときには LineSeparator は使えないんだ、ということはよく分かりました m(_ _)m

・ツリー全体表示


	【76182】Re:ExcelのVBAでテキストファイルの編集...

kanabun - 14/10/9(木) 9:04 -


	引用なし

	パスワード

▼γ さん： >ADODBのヘルプによると、 >>LineSeparator は、テキスト Stream の内容を読み取るとき行の解釈に使います。 >という説明がありましたので、読み込み時だけ有効のようですね。情報ありがとうございます。すると、出力時に LineSeparator を指定するような直接的プロパティはないということになりますか？もし元が CrLf改行のテキストを LF改行に変更したいなら、それも > 置換処理の中で対応ということなんですね。

・ツリー全体表示


	【76181】Re:ExcelのVBAでテキストファイルの編集...

γ - 14/10/9(木) 6:21 -


	引用なし

	パスワード

蛇足ですが、閲覧者が誤解してはいけませんので、補足しますと、
>もし改行コードの統一が必要なら、
というのは、すべてのファイルで、という意味で書きました。
（ひとつのファイル中で改行コードが混在していることは無いでしょうから、
　そうした意味ではありません。）

・ツリー全体表示


	【76180】Re:webbrowserコントロール

γ - 14/10/9(木) 6:16 -


	引用なし

	パスワード

>本件、補足しますと、フォームの呼び出しは、"UserForm1.Show vbModeless"
>を使用してます。しかしながらモードレスでも切替えられません。
>他に疑わしい点あるでしょうか。

事象を確認していませんが、
それが現実だとすると、
ひとつの解釈として、
ひとつのExcelアプリ-ケーションで、並列処理をユーザーに開放していない
ということではないですか。
別のExcelアプリケーションでWebbrowser処理を実行してみては？

・ツリー全体表示


	【76179】Re:ExcelのVBAでテキストファイルの編集...

γ - 14/10/9(木) 6:12 -


	引用なし

	パスワード

こんにちは。
>元のテキストが CRLF改行なので、指定しなければ、CrLfのままということでは
>ないでしょうか？
私は、元の改行コードをそのまま残すことで良いのではないかと思っていました。
元がCRならCR。
元がLFならLFだと。

CRLF改行のものをLineSeparator指定でLFに変更するということですね。
実験しましたら、ご指摘のとおりでした。

ADODBのヘルプによると、
>LineSeparator は、テキスト Stream の内容を読み取るとき行の解釈に使います。
という説明がありましたので、読み込み時だけ有効のようですね。
もし改行コードの統一が必要なら、
置換処理の中で対応するのが良いかもしれません。

・ツリー全体表示


	【76178】Re:webbrowserコントロール

yama - 14/10/8(水) 23:15 -


	引用なし

	パスワード

▼γ さん：
>横合い失礼。
>
>>ご指摘有難うございます。
>>（大変失礼しました。今後、「○○にも同じ質問を出しました」等の記載を致します。）
>今回は書かないでいい、ってことにはならないと思うんだが。
>あなたがきちんと明記して下さいな。

追記します。
「モーグQ&A掲示板にも同じ質問を出してます。」

本題に戻らせて頂きます。
本件、補足しますと、フォームの呼び出しは、"UserForm1.Show vbModeless"
を使用してます。しかしながらモードレスでも切替えられません。
他に疑わしい点あるでしょうか。

・ツリー全体表示


	【76177】Re:ExcelのVBAでテキストファイルの編集...

kanabun - 14/10/8(水) 22:40 -


	引用なし

	パスワード

▼γ さん：ありがとうございます。 >.LineSeparatorを指定せずに読んで、 >指定せずに書き込んでみてはいかがでしょうか。やってみましたが、LF改行にはなっていませんでした。（今度はバイナリ・エディタで確認）元のテキストが CRLF改行なので、指定しなければ、CrLfのままということではないでしょうか？

・ツリー全体表示


	【76176】Re:フォルダー内の複数のエクセルのＤ列...

ペンネーム船長 - 14/10/8(水) 22:37 -


	引用なし

	パスワード

γさま

ご指摘有難う御座います。
列で検索するのをあきらめ、Ｄ列のひとつひとつのセルをチェックする方法にしました。
1000行もチェック出来れば十分だったのでこの方法でやることにしました。
不備が見つかったエクセルはシート『調査結果』に書き出すようにしました。

Private Sub CommandButton1_Click()

　　Dim buf As String, Target As String, i As Integer, n As Integer, nn As Integer
　　Const Path = "C:\Users\○●\Desktop\test\"
　　buf = Dir(Path & "*.xls")
　　
　　Do While buf <> ""
　　　　For i = 1 To 1000
　　　　n = 0
　　　　nn = 0
　　　　Target = "'" & Path & "[" & buf & "]あ'!R" & i & "C4"　’Ｄ列（1行～1000行）をチェック対象とする
　　　　　If ExecuteExcel4Macro(Target) = "2-" Then
　　　　　　　MsgBox buf & "の" & "セルＤ" & i & "に『2-』がありました"
　　　　　　　nn = n + 1　'セルに『2-』があったときに1を加える
　　　　　　　Exit For
　　　　　End If
　　　　Next i
　　　　　If nn = 0 Then　'合計が0のとき、そのエクセルの名前を書き出す
　　　　　　　MsgBox "このシートに不備を見つけました（『2-』が見当たらない）"
　　　　　　　 Worksheets("調査結果").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = buf
　　　　　End If
　　　　buf = Dir()
　　Loop
　　
End Sub

・ツリー全体表示


	【76175】Re:webbrowserコントロール

γ - 14/10/8(水) 19:54 -


	引用なし

	パスワード

横合い失礼。

>ご指摘有難うございます。
>（大変失礼しました。今後、「○○にも同じ質問を出しました」等の記載を致します。）
今回は書かないでいい、ってことにはならないと思うんだが。
あなたがきちんと明記して下さいな。

・ツリー全体表示


	【76174】Re:ExcelのVBAでテキストファイルの編集...

γ - 14/10/8(水) 19:50 -


	引用なし

	パスワード

▼kanabun さん：
> 以上ですが、まだ不具合があります。
> (1) UTF-8形式で（改行コードはわざと元とちがう LF にして）別の場所に
> 　　保存しようとしているのですが、LFだけになっていないようです。
>　　　（秀丸エディタで確認）

横から失礼します。
.LineSeparatorを指定せずに読んで、
指定せずに書き込んでみてはいかがでしょうか。

・ツリー全体表示


	【76173】Re:フォルダー内の複数のエクセルのＤ列...

γ - 14/10/8(水) 19:12 -


	引用なし

	パスワード

▼ペンネーム船長さん：
> Findの検索対象にExecuteExcel4Macro(Target)が使えないのかも知れません。
ご懸念のとおり、ExecuteExcel4Macroは単一のセルを取得しかできません。
（複数なら繰り返し取得することになります）
ですから、Findする対象とはなり得ません。

普通にファイルを開いて、データを取得してください。

・ツリー全体表示


	【76172】Re:webbrowserコントロール

yama - 14/10/8(水) 13:18 -


	引用なし

	パスワード

ご指摘有難うございます。
（大変失礼しました。今後、「○○にも同じ質問を出しました」等の記載を致します。）

▼マルチーズさん：
>▼yama さん：
>この掲示板の基本方針からです。
>
>>別のサイト（掲示板）にまったく同じ目的の投稿をすることを、一般に「マルチポスト」といいます。
>>当質問箱では、マルチポストは原則認めています。
>>つまり、ほかのサイトで質問したことをこのサイトで質問してもかまわないということです。
>
>>しかし、もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください。
>>そして、仮に他のサイトで解決したのなら、ここにも必ずその顛末を書いてください。
>>質問しっぱなし、というのはモラルに反します。
>>「解決したからいいや」というのではありません。
>
>>また、マルチポストを明示的に禁止しているサイトとのマルチポストをしてはいけません。

・ツリー全体表示


	【76171】Re:ｼｰﾄの有無判定

pon - 14/10/8(水) 12:58 -


	引用なし

	パスワード

▼独覚さんへ

ありがとうございました。
下記ご指摘のとおりで、改めたら万事解決→万々歳！です
※ダラダラと延べ1日悩んでました

pon

>On Error Resume Next
>だとエラー時にはその命令を実行しなかったものとなるため前回実行時のシートが
> セットされたままの状態となります。
>
>Set xWsheet = Worksheets(i & "日")
>の前に
>Set xWsheet = Nothing
>を入れてみてはどうでしょうか？

・ツリー全体表示


	【76170】Re:ｼｰﾄの有無判定

独覚 - 14/10/8(水) 12:53 -


	引用なし

	パスワード

▼pon さん：
　 ▼pon さん：
On Error Resume Next
だとエラー時にはその命令を実行しなかったものとなるため前回実行時のシートが
セットされたままの状態となります。

Set xWsheet = Worksheets(i & "日")
の前に
Set xWsheet = Nothing
を入れてみてはどうでしょうか？

・ツリー全体表示


	【76169】フォルダー内の複数のエクセルのＤ列に『...

ペンネーム船長 - 14/10/8(水) 11:44 -


	引用なし

	パスワード

【質問】
デスクトップの『ｔｅｓｔ』フォルダーの中に複数のエクセルがあり、それらエクセルには全て『あ』シートがあります。
それらエクセルのシート『あ』のＤ列に『2-』があるか否か調べたいのですが、下記のコードでは上手く行きません。
Ｔａｒｇｅｔの列の指定がまずいのかも知れませんし、Ｆｉｎｄの検索対象にExecuteExcel4Macro(Target)が使えないのかも知れません。
宜しくご教授お願いします。

Private Sub CommandButton1_Click()

　　Dim buf As String, Target As String
　　Const Path = "C:\Users\○●\Desktop\test\"
　　buf = Dir(Path & "*.xls")

　　Do While buf <> ""
　　　　Target = "'" & Path & "[" & buf & "]あ'!R4"　　'D列
　　　'*****シート『あ』のＤ列をチェックする*****
　　　 Dim　f As Range
　　　 Set f = ExecuteExcel4Macro(Target).Find("2-", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False, matchbyte:=False)

　　　 If Not f Is Nothing Then 'もしもあったら
　　　　 MsgBox "『2-』が見つかりました"
　　　Else
　　　　 MsgBox "このシートに不備を見つけました（『2-』が見当たらない）"
　　　End If
　　　　 buf = Dir()
　　Loop

End Sub

・ツリー全体表示


	【76168】ｼｰﾄの有無判定

pon - 14/10/8(水) 11:20 -


	引用なし

	パスワード

＜1～5、7～10日＞のシート名を含むファイル内で
下記構文によるシートの有無判定をしていますが
6日判定でも「あり6」のメッセージが。
なにか考え違いしていますか？

------------------------------------------------

Dim xWsheet As Worksheet

For i = 1 To 10

On Error Resume Next
Set xWsheet = Worksheets(i & "日")
On Error GoTo 0

If xWsheet Is Nothing Then　' 該当シートなし
　　MsgBox "なし" & i
Else　　　　　　　　　　　　' 該当シートあり
　　MsgBox "あり" & i
End If

Next

------------------------------------------------

・ツリー全体表示


	【76167】Re:webbrowserコントロール

マルチーズ - 14/10/8(水) 10:37 -


	引用なし

	パスワード

▼yama さん：
この掲示板の基本方針からです。

>別のサイト（掲示板）にまったく同じ目的の投稿をすることを、一般に「マルチポスト」といいます。
>当質問箱では、マルチポストは原則認めています。
>つまり、ほかのサイトで質問したことをこのサイトで質問してもかまわないということです。

>しかし、もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください。
>そして、仮に他のサイトで解決したのなら、ここにも必ずその顛末を書いてください。
>質問しっぱなし、というのはモラルに反します。
>「解決したからいいや」というのではありません。

>また、マルチポストを明示的に禁止しているサイトとのマルチポストをしてはいけません。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

312 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free