おはようございます。
Takkoです。
以下質問のコードです。
'"16/09/26(火)"形式の入力を"2016/09/26"形式に整える。 targetClumn:変換対象列 Sub EditFormat(pClumn As Integer) 'フォーマット変更時に使用する変数 Dim inStrVal As Integer Dim afterCellVal As String '変換対象列の6行目から最終行までを変換する。 For pRow = 6 To rowsCount If Len(Cells(pRow, pClumn).Value) > 0 Then Cells(pRow, pClumn).NumberFormatLocal = "yyyy/m/d;@" inStrVal = InStr(Cells(pRow, pClumn).Value, "(") If inStrVal > 0 Then afterCellVal = Left(Cells(pRow, pClumn).Value, inStrVal - 1) Cells(pRow, pClumn).Value = CDate("20" + afterCellVal) End If Else Exit For End If Next pRow End Sub
上記コードでは渡されたClumnの列のデータをrow=6からForでデータの最終行まで、
文字変換をするやり方なのですが、
Range("B6:F6").Select
Range(selection,selection.End(xldown))で変換対象のセルデータを一括で選択し、
内部の文字データを変更することは可能でしょうか。
文字列の変更はやはり一セルごとにValueを変えていくべきですか?
よろしくお願いします。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。