下記、コードでセルに関数を入れるようにしてるのですが
関数で得られた値をセルに反映されるようにしたいのですが
Dimを使用してもどう指定してよいのかわからず苦戦しております。
宜しくお願い致します。
Range("F1").Select
Do Until ActiveCell.Offset(0, -1).Value = ""
With ActiveCell
.FormulaR1C1 = "=MID(RC[-1],2,3)"
.Offset(1, 0).Select
End With
Loop
Range("A1").Select
Do Until ActiveCell.Offset(0, 2).Value = ""
With ActiveCell
.FormulaR1C1 = "=RC[11]&RC[5]&Rc[8]&rc[9]&rc[3]"
.Offset(1, 0).Select
End With
Loop
下記、コードでセルに関数を入れるようにしてるのですが
関数で得られた値をセルに反映されるようにしたいのですが
Dimを使用してもどう指定してよいのかわからず苦戦しております。
宜しくお願い致します。
Range("F1").Select
Do Until ActiveCell.Offset(0, -1).Value = ""
With ActiveCell
.FormulaR1C1 = "=MID(RC[-1],2,3)"
.Offset(1, 0).Select
End With
Loop
Range("A1").Select
Do Until ActiveCell.Offset(0, 2).Value = ""
With ActiveCell
.FormulaR1C1 = "=RC[11]&RC[5]&Rc[8]&rc[9]&rc[3]"
.Offset(1, 0).Select
End With
Loop
Excel VBAについてお聞きしたいことがあります。
ユーザフォームにテキストボックスとチェックボックスを設定し、
テキストボックスには日付の入力、チェックボックスには記号を選択するように作成しました。
(チェックボックスの記号は時間で設定しており、
0:00～08:59 =A
09:00～13:00 =B
13:00～15:59 =C
16:00～19:59 =D
20:00～23:59 =E と決めています。)
表のA列には年月日と時間(昇順)、B列にはA～Eの記号が入っています。(A列参照の関数を入れています。)
例えば、テキストボックス1に11/25,テキストボックス2に12/1
チェックボックス1にE , チェックボックス2にAと入力した場合、
11/25のEまでのデータと12/1のA以降のデータを削除する方法を教えて下さい。
まずdo loopを使って11/25までのものを探すプロシージャを書いたのですが、A列に時間が入っているためかわかりませんが、どうも日付を取得できません。
念のため、私が書いたものを記載しますが、
これ以外でもいい方法があれば教えていただければ幸いです！
どうぞよろしくお願いいたします。
----------------------------------------
dim myDate as Date
sub 指定日以外削除()
myDate = textbox1.Value
i = 1
Do Until Cells(i, 1) = ""
If Cells(i, 1).Value = myDate Then
Cells(i, 1).EntireRow.Delete Shift:=xlToLeft
End If
i = i + 1
Loop
End Sub
お世話になっております。
VBSで、CSVファイルをカンマ区切りで配列にし、
ファイルに書き出したいです。
下記のスクリプトを実行すると３行の改行と
これ⇒ ----------------
だけ出力されます。
Splitは使用できないのでしょうか？
どこが間違っているのかわかりません。
ご教授いただけませんでしょうか。
'---------------------------------------------------------------
On Error Resume Next
Set OBJFS01 = CreateObject("Scripting.FileSystemObject")
Set CSVTEXT01 =OBJFS01.OpenTextFile("C:\tmp\CSVTEXT.log")
Set LOGTEXT01 =OBJFS01.OpenTextFile("C:\tmp\LOGTEXT.log",8,False)
'---------------------------------------------------------------
i = 0
Dim HAIRETU(27)
Do While i < 6
HAIRETU(27) = Split(CSVTEXT01, ",")
LOGTEXT01.WriteLine(HAIRETU(2))
LOGTEXT01.WriteLine(HAIRETU(3))
LOGTEXT01.WriteLine(HAIRETU(4))
LOGTEXT01.WriteLine("----------------")
i = i + 1
Loop
LOGTEXT01.close
CSVTEXT01.close
