特定の列のすべてのセルの長さは6文字でなければなりません。そうでなければ、セルの長さが6になるまで各セルの先頭に0を加えなければなりません。それを行う最善の方法は何ですか?ここでExcel VBAコード特定のセルにテキストを追加する方法
0
A
答えて
0
は、列Cためのサンプルです:
Sub Make6()
Dim r As Range, r1 As Range, r2 As Range, r3 As Range
bry = Array("000000", "00000", "0000", "000", "00", "0", "")
Dim N As Long, v As String, L As Long
Set r1 = Range("C:C")
N = Cells(Rows.Count, "C").End(xlUp).Row
Set r2 = Range("C1:C" & N)
Set r3 = Range("C" & N + 1 & ":C" & Rows.Count)
r1.NumberFormat = "@"
For Each r In r2
v = r.Value
L = Len(v)
If L < 6 Then
r.Value = bry(L) & v
End If
Next r
r3.Value = "000000"
End Sub
それは列C内のすべてのセルを修正します。
+0
ありがとうございます! – megagosha
0
Dim lastRow As Integer
Dim i As Integer
Dim sh As Worksheet
Dim cont As String
Set sh = ThisWorkbook.Worksheets("Sheet1") 'Your Sheet
With sh
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'Coloumn A
For i = 1 To lastRow
Cells(i, 1).NumberFormat = "@"
Do Until Len(Cells(i, 1)) = 6 'Coloumn A
cont = Cells(i, 1) 'Coloumn A
Cells(i, 1) = "0" & cont 'Coloumn A
Loop
Next i
End With
これは機能しますか?チェックしたいcoloumnを編集するだけで、TextBoxを使うことができます。
関連する問題
- 1. VBAを使用してExcelのセルにテキストを追加する
- 2. 範囲内の特定のセルにコメントを追加します。 Excel VBA
- 3. Excelのヘルプ:テキスト/セルを追加する方法を一緒
- 4. excel vba +プログラムでボタンにコードを追加する方法
- 5. VBAにアクセスする - Excelのセルに番号を追加する
- 6. VBAコードのaddinf情報をセルに追加するには
- 7. 行を追加すると特定のセルに式を保持する方法
- 8. Excelの特定のセルを特定のセルから除外する方法
- 9. VBAを使用してExcelの特定のセル(列)に動的にリストを追加する
- 10. 特定のページにのみjQueryコードを追加する方法
- 11. Excel VBA - 変数をテキストとセルの値に設定します
- 12. Excel特定の列を選択するExcel VBAコード
- 13. Excel VBAセル内の特定の値を確認する
- 14. CountIf数式をVBAコードのセルに追加する
- 15. セル内に複数のハイフンを追加するVBAコード
- 16. Excelを使用してテキストをテキストに追加-VBA
- 17. Excel vba電子メール本文に特定のテキストをコピーする
- 18. C#でExcelのセルにハイパーリンクを追加する方法
- 19. [Excel-VBA]セルから特定の価格を取得する
- 20. 特定のセルから列全体を選択するExcel VBA
- 21. 特定のExcelセルをSQL Serverにインポートする方法
- 22. Excel VBAセルに特定のテキストが含まれるまでセルの範囲を選択
- 23. VBAコードからセルに式を追加する
- 24. 問題の特定範囲内のセルを特定のテキストに置き換える方法 - Excel VBScript
- 25. ユニットテストの方法Excel VBAコード
- 26. Excelで多くのセルのループを追加する方法
- 27. VBAで特定のセルをクリアする方法
- 28. 特定のテキスト値の下に行を挿入するVBAコード
- 29. CSSのsyncfusionグリッドグループコントロールの特定のセルにCSSを追加する方法
- 30. Excel - 特定の数値を設定する方法別のセルに異なるテキスト値を返す
S.O!へようこそ!何か試しましたか?もしそうなら、コードを提供して、[ツアー](http://stackoverflow.com/tour)と[質問する](http://stackoverflow.com/help/how-to-ask)を見てください。 )。フレンドリーリマインダー:StackOverflowは "あなたのためのコード"サービスプロバイダーではありません。 [VBA入門](https://blog.udemy.com/excel-macros-tutorial/) – Sgdva
結果が別の列に入力されたことを受け入れる場合、これはVBAなしで行うことができます。元の列を非表示にすることができます。選択肢がある場合は、VBAと比較してセル内の式でそのようなことを実行する方が殆どです。 – trincot
はい、そのさらに大きな方法です。どのような式を使うべきですか? – megagosha