Console.writeLineで全角文字列が１０００戸ぐらい続くStringを出力する場合は文字化けしませんが、半角が１字でも混じると文字化けします。たとえば以下のようなコードです。
line = "アああああああああ【中略】あああああああああああああ"
Console.WriteLine(line)
出力結果のところどころに「ああ・あああ」となっている場所があります。なんとなかならないでしょうか？
Visual Studio 2003 / 2008
Visual Basic
Windows XP
教えてください。マクロは初心者です。
↑先ほど、http://oshiete1.goo.ne.jp/qa5695407.html
で、ある親切な方に以下のマクロを教えて頂きましたが、私がその時にまとめて聞くのを忘れてしまい、改めて教えていただきたく思います。
------------------------------------------------
Sub test()
Dim R As Long
For R = 1 To Cells(Rows.Count, "B").End(xlUp).Row
If Cells(R, "B").Value = "土" Or CellsR, "B").Value "日" Then
Cells(R, "A").Resize(1, 5).Interior.ColorIndex = 6
End If
Next R
End Sub
----------------------------------------------------
上記のマクロを１シートでなく、全シートでまとめて実行したいのですが（どのシートも同様の内容なので）、どうすればいいのかわかりません。
どの個所にどんなコードを入れればよいのでしょうか？
よろしくお願いします。
【XP、2003】
シーケンサから送られてくるデータがあり、
それを24時間モニターするシステムをexcel2007で構築しています。
詳細
・excelとシーケンサは1秒ごとに通信している
・1ブックに7シート（うち5シートがグラフ）
・一日三つのブックを保存します。
・ひとつのファイルが約400KB程あり、
一日で諸々含め約1.5Mほどになります。
・excel自体には、タイマーで自動起動するマクロが
（印刷、保存1、保存2、保存フォルダ作成、画面クリア、
次回タイマー予約）とあります。
・PCスペックは
core2duo 500GB メモリ2GB
上記システムが、約三カ月稼働後の印刷を最後に、タイマーマクロが働かなくなり、再起動後、20日で再び同じ症状になりました。
二度とも、保存１の段階（もしくは印刷終了後）でストップしています。
一度目には、保存フォルダに0kbのファイルを確認しました。
（つまりは、保存に失敗しているってことでしょうか？）
ちなみに、ストップしたのは、マクロのプログラムで、
EXCEL自体の表示はモニターをし続けていました。
ただ、そこから終了をかけても落ちない状態でした。
保存作業で引っかかり、それが尾を引いて他の作業が出来なくなった、と考えるべきでしょうか？
実際、その現場に自分も居合わせてはおらず、その時の状況（CPU稼働率、メモリの状況など）が不明確で、大変申し訳ありませんが、
それらの対処法があれば教えてください。
一応、保存コードも記載しておきます。
Option Explicit
Sub DB保存()
On Error Resume Next
Dim bn As String
Dim 値 As String
Dim 本日 As String
Dim 新ブック As String
Dim 年 As String
Dim 月 As String
Dim 日 As String
Dim 時間 As String
bn = "予冷庫 温湿度管理表.xlsm"
年 = Year(Now)
月 = Month(Now)
日 = Day(Now)
時間 = 235400 '変更注意
本日 = Format(expression:=Date, Format:="yyyymmdd")
値 = (本日) & (時間)
新ブック = "C:\xxx\管理者用\DB\DB" & (値) & ".xlsm" 'パス変更注意
Workbooks(bn).SaveCopyAs Filename:=新ブック
End Sub
以下のようなテーブルAがあったとして、
項目Cを抽出する際、キー項目Bが「2」の場合、nullですが、
これを「b」と表示するようにしたいです。
[テーブルA]
キー項目B 項目C
------------
1 a
2 null
3 c
4 d
----------------------------------------------
項目Cのデータ型が数値の場合は、
SELECT CASE WHEN B IS NULL THEN 0 ELSE B END AS B FROM テーブルA
で対応できるようですが、
文字列の場合は、同じような方法があるのでしょうか？
何かご存じの方、お願い致します。
If Range("A3") Or Range("A4") > 1 Then
Range("C3") = Range("C3") +1
End if
Range("A3") かRange("A4") に1以上の値が入っていれば
Range("C3")に集計させたいのですが、ちゃんとした値が反映されません。
式として何か間違っていますでしょうか？
すみません エクセルＶＢＡ勉強中のものですが、セルＡ１とＡ２がブランクだったら、セルＢ１に”あ”を表示するという式を作ったのですがうまく動いてくれません ご指導のほどお願いします。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1).Value <> "" & Cells(2, 1).Value <> "" Then
Cells(1, 2).Value = "あ"
End If
End Sub
Sub test()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Desktop\test1.mdb"
Set rs = New ADODB.Recordset
rs.Open "テーブル1", cn, adOpenStatic, adLockPessimistic
cn.Execute "DELETE FROM テーブル1"
rs.Update '保存
Set rs = Nothing
Set cn = Nothing
End Sub
を実行したとき
テーブル1にデータがあるときはエラーにはならないのですが
何もデータがないときは「rs.Update」でエラーになります。
なので「Update」は消して実行していますが
「Update」がなくても「Execute」を実行した後は自動的に保存されるのでしょうか？
よろしくお願いします。
