特定の列のすべてのセルの長さは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. VBAにアクセスする - Excelのセルに番号を追加する
- 3. VBAコードのaddinf情報をセルに追加するには
- 4. VBAを使用してExcelの特定のセル(列)に動的にリストを追加する
- 5. Excel VBA - 変数をテキストとセルの値に設定します
- 6. Excel特定の列を選択するExcel VBAコード
- 7. 特定のページにのみjQueryコードを追加する方法
- 8. Excel VBAセル内の特定の値を確認する
- 9. セル内に複数のハイフンを追加するVBAコード
- 10. CountIf数式をVBAコードのセルに追加する
- 11. 特定のセルから列全体を選択するExcel VBA
- 12. C#でExcelのセルにハイパーリンクを追加する方法
- 13. 特定のExcelセルをSQL Serverにインポートする方法
- 14. VBAコードからセルに式を追加する
- 15. ユニットテストの方法Excel VBAコード
- 16. 問題の特定範囲内のセルを特定のテキストに置き換える方法 - Excel VBScript
- 17. VBAで特定のセルをクリアする方法
- 18. Excelで多くのセルのループを追加する方法
- 19. in excel VBA、セル内のテキストの形式を取得する方法
- 20. Excel - 特定の数値を設定する方法別のセルに異なるテキスト値を返す
- 21. excelアクティビティを保持せずにexcel vbaコードの実行でポーズを追加する方法
- 22. vbaのセル内のテキストを参照する方法
- 23. Excel - セルに特定のテキストが含まれている場合
- 24. 特定のセルをExcel VBAで1つのセルで塗りつぶす
- 25. Excelの特定のズームレベルを強制するVBAコード
- 26. VBAに列を追加する方法
- 27. テキスト値に基づいてExcelでセルの色を設定する - VBA
- 28. VBAを使用してExcelでテキストをセルに挿入する
- 29. セルに追加する際にexcel vbaの型が一致しない
- 30. Excel/VBAでループする追加のディレクトリを指定する
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