お世話になります。
VBでエクセルにデータを貼り付ける処理があるのですが、
エクセルの書式設定(数値で小数点第3位まで表示)が反映されず、そのままの値が文字列として表示されてしまいます。
そのセルをダブルクリックすると書式が反映されます。
貼り付ける時はパフォーマンスを考慮して、下記のように一括で貼り付
けるようにしています。
「m_xlSheet.Range("A" + CStr(lngRows) + ":U" + CStr(lngRows)).Value = strValue」
何かよい方法をご存知でしたら、教えて下さい。
環境:VB6(SP6)、エクセル2000
No.3
- 回答日時:
#2 です。
もう少しサンプルを提示しておきます。Sub Sample3()
Dim i As Long
Dim j As Long
'Dim Buf() As Variant '<-- バリアント型にする
'または数値しか代入されないなら Double 型等でも OK
Dim Buf() As Double
ReDim Buf(1 To 5, 1 To 5)
For i = 1 To 5
For j = 1 To 5
Buf(i, j) = 1.333
Next j
Next i
With Range("A1:E5")
.NumberFormat = "0.000"
.Value = Buf
End With
End Sub
Sub Sample4()
Dim strTmp As String
' VB では数値が String 型にキャストされて代入される
' strTmp = Cstr(1.333) と同意. つまりこの段階では、
' strTmp = "1.333" となっている
strTmp = 1.333
' しかし、配列でない「通常変数の場合」はセルへの代入時に
' Excel が「型の判断を再度行う」ため、再び数値として評価
' できるものは数値となってしまう....
Range("A1").Value = strTmp
' 配列の一括転記時にはこの機能が働かない
End Sub
No.2ベストアンサー
- 回答日時:
こんにちは。
KenKen_SP です。> m_xlSheet.Range("A" + CStr(lngRows) + ":U" + CStr(lngRows)).Value = strValue
変数 strValue が String型配列になっているからですね。恐らく、VB の自動
キャスト機能が原因です。
オートメーションのコードを書くのは面倒なので、Excel VBA でサンプルを
書いておきます。変数の型の違いでセルへ転記がどのように違うかを確認して
下さい。
Sub Sample1()
' 文字列として数字が転記される例
Dim Buf() As String '<-- 文字列型変数が原因
ReDim Buf(1 To 5, 1 To 5)
For i = 1 To 5
For j = 1 To 5
' 数値が文字列にキャストされる
Buf(i, j) = 12345
Next j
Next i
Range("A1:E5").Value = Buf
End Sub
ではどうするかといえば、配列の型を Variant にしてしまうのが一番
簡単です。
Sub Sample2()
' 対応策
Dim Buf() As Variant '<-- バリアント型にする
ReDim Buf(1 To 5, 1 To 5)
For i = 1 To 5
For j = 1 To 5
Buf(i, j) = 12345
Next j
Next i
Range("A1:E5").Value = Buf
End Sub
No.1
- 回答日時:
私の環境(2003)ではできるんですが。
例えば、strValueが1.333ならセルに1.333と表示されれば問題ないわけですよね。
ツールー>オプションー>設定の編集等でなにか特別な設定を行っていないか確認されは同でしょうか。
最終手段は新たしいブックを作成し、そちらに、必要なワークシートの内容をコピー貼り付け、マクロもコピー貼り付けしてみたらどうでしょう。
まあバージョンが異なるのでなんともいえないですが。ご参考になれば幸いです。
この回答への補足
「ツールー>オプションー ・・・」はデフォルトのままで、特にいじっておりません。
また、新しいブックに形式を選択して貼り付けで、値のみにしても同じように表示されてしまいます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルからビジオのリンク貼り付け 1 2023/03/30 17:51
- Excel(エクセル) マクロ作成初心者です。CSVファイルの日付データについて 3 2022/12/14 06:02
- 教育学 エクセルで小数点以下を四捨五入について教えてください。 2 2023/04/05 17:33
- Excel(エクセル) エクセルの表示形式について教えてください あるセルの「A」という値と、別のセルの「B」という値を組み 4 2023/02/21 21:55
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルのセルの書式設定・ユーザー定義の条件設定について 1 2022/08/17 21:56
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- PowerPoint(パワーポイント) ExcelのグラフをPowerPointに貼り付けした際にデータテーブルの小数点以下を削除したいです 2 2023/02/28 19:46
- Excel(エクセル) Excel VBA セルの書式設定 2 2022/03/30 10:48
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
VBA 表示設定 texttocolumns
Excel(エクセル)
-
-
4
VBAでシート書式の自動変換を作動させない方法
Excel(エクセル)
-
5
VBA:日付を配列に入れ別セルに転記するとデータ型が変わる
Visual Basic(VBA)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
Excelのセルの色指定をVBAから配列を用いて効率的に行う方法はあり
Visual Basic(VBA)
-
8
EXCEL VBA 文中の書式ごと複写するには
Visual Basic(VBA)
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
11
VBAでワークシートを引数としてサンプル関数に渡したい
Visual Basic(VBA)
-
12
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
13
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
14
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
15
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
16
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
17
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
18
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
19
エクセルでエラーが出て困っています。
Excel(エクセル)
-
20
エクセルの表示形式を保ったまま、セルに値を代入するには?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
copyRecordsetの数値16桁以上に...
-
vbsでテキストファイル内の文字...
-
excelの、ある数式内の{}の意...
-
配列の値を置換するにはどうす...
-
エクセルへのデータの貼付時に...
-
VB 配列の内容をファイルに書...
-
VBAで配列に文字列が入らない?
-
VB6で配列を文字列に変換する方...
-
COLUMN(1:1)の意味を教え...
-
rubyによる2次元配列形式のデー...
-
初心者が簡単なPowerShellスク...
-
エクセル、この関数の意味は?
-
C言語 exitの使い方
-
エラーの意味は? Lvalue req...
-
VBAでダブルコーテーション入り...
-
EXCEL/VBA 変数の値をクリップ...
-
フォームを開くときに、コンボ...
-
C言語 列挙型(enum型)変数について
-
Excel-vba 文字列と変数を...
-
数字の位ごとの値を表示するプ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelの、ある数式内の{}の意...
-
配列の値を置換するにはどうす...
-
エクセルへのデータの貼付時に...
-
初心者が簡単なPowerShellスク...
-
vbsでテキストファイル内の文字...
-
初心者プログラミング
-
VBAのWorksheetFunctionの引数...
-
エクセル、この関数の意味は?
-
COLUMN(1:1)の意味を教え...
-
VBSで特定の文字列が含まれる場...
-
○桁にある数値を取得する VB.N...
-
VBAで配列に文字列が入らない?
-
【エクセル】 関数による電子...
-
VB6で配列を文字列に変換する方...
-
数値を浮動小数点32bitHEXコー...
-
RichTextBoxの改行を認知してく...
-
VB 配列の内容をファイルに書...
-
複数ディレクトリの監視(VB.NET...
-
VB.NET 2次元配列
-
C#の問題です。 文字列型の配列...
おすすめ情報