ひらがな・英字・数字・記号が組み合わさったランダムな文字を
カタカナのみ全角にしたいです。
Sub test()
Dim moji As String
moji = "あああ123AAAアアア<>（）"
MsgBox StrConv(moji, vbWide)
End Sub
これだと全て全角になってしまいます。
moji に格納される文字列は規則はなくランダムです。
この状態でカタカナのみ全角にする方法はありますか？
エクセルファイルで
「１０分おきに自動でバックアップファイルを作成する」
ということは可能ですか？
Sub バックアップ作成()
Dim myFSO As Object
Dim MyFile As Object
Dim WSH As Variant
Dim strdate As String
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("Wscript.Shell")
strdate = Format(Now, "yyyy年mm月dd日hh時mm分")
myFSO.CopyFile ActiveWorkbook.FullName, "D:\backup\" & strdate & ".xlsm"
Set MyFile = Nothing
Set myFSO = Nothing
Set WSH = Nothing
End Sub
これでバックアップは作成できるのですが
「10おきに」というのはどうすればいいのでしょうか？
エクセル２０１０ で１０時から１２時の間には１がセルに入力されてそれ以外には０が入力されるというコードをマクロで作っているのですがどうしてもエラーになります
If Time >= TimeValue("10:00") And Time <= TimeValue("12:00") Then
Range("a1") = "1"
Else
Range("A1") = "0"
End if
何がおかしかったのでしょうか？？？？？？？
どなたかできればでいいので正しいマクロコードを教えて下さい お願いします
ちなみに中１です
下記のソースの場合、一つのセル（例えばA1）に【鈴木 太郎】とあれば、隣のセル（B1）に"鈴木 太郎"と表示されます。
（これを一つのセルに【鈴木 太郎】【佐藤 太郎】【伊藤 太郎】とあった場合は、"鈴木 太郎】【佐藤 太郎】【伊藤 太郎"と表示されます。）
例えば、C1には【鈴木 太郎】【佐藤 太郎】【伊藤 太郎】とあった場合には、C2には"鈴木 太郎"、D2に"佐藤 太郎"、E2に"伊藤 太郎"とすることは可能でしょうか？
※行によって異なり、【○○ ○○】はいくつあるとは限らないとします。
よろしくお願いいたします。
Sub PickupWords()
Dim Matches As Object
Dim Match As Object
Dim buf As String
Dim c As Variant
With CreateObject("VBScript.RegExp")
.Pattern = "【(.+)】"
.Global = False
Application.ScreenUpdating = False
For Each c In Range("A1", Cells(Rows.Count, 1).End(xlUp))
If .Test(c.Value) Then
buf = c.Value
Set Matches = .Execute(buf)
c.Offset(, 1).Value = Matches.Item(0).SubMatches(0) '括弧の中を取り出す
End If
Next c
Application.ScreenUpdating = True
End With
End Sub
