所属名毎にシートを作成し都道府県と所属名が一致したら集計させループさせたいのですがうまくいきません。
データには列135に所属名があり139に都道府県が入っています。
解約シートには6行目5列目から都道府県名が入っています。
最終が沖縄となるので沖縄が入れば抜けるようになっています。
今の状態で実行すると所属名の数毎、都道府県の件数を更にを集計してしまいます。
一度シートを作成した所属はFor～Nextを読み込まないようにしたいのですが
自分なりに制御させようと試みましたが上手く集計されません。
何かアドバイス等ありましたらお願いします。
Dim ingcnt As Integer
Dim intHjn As Integer
Dim strhjn As String
Dim Areastrhjn As String
Dim list_cnt As Integer
Dim Arealist_cnt As Integer
Dim (2) As Worksheet
Dim Area_cnt As Integer
With Worksheets("解約データ")
Set (2) = Sheets("解約・所属別")
list_cnt = 2
strhjn = ""
Area_cnt = 5
'所属CD1毎のシート作成
Do While Trim$(.Cells(list_cnt, 1)) <> "" '(A列)が空白でない限り繰り返す
If strhjn <> .Cells(list_cnt, 135) Then
strhjn = .Cells(list_cnt, 135)
Sheets("解約").Select
Sheets("解約").Copy Before:=Sheets("解約")
Sheets("解約(2)").Name = strhjn
ActiveSheet.Cells(1, 15) = strhjn
End If
For Area_cnt = 5 To (2).Cells(6, (2).Columns.Count).End(xlToLeft).Column
Area = (2).Cells(6, Area_cnt)
Arealist_cnt = 2
Areastrhjn = ""
Do While Trim$(.Cells(Arealist_cnt, 1)) <> "" '(A列)が空白でない限り繰り返す
Areastrhjn = .Cells(Arealist_cnt, 135)
'エリア集計
If Areastrhjn = .Cells(Arealist_cnt, 135) And _
.Cells(Arealist_cnt, 139) = Area Then
ActiveSheet.Cells(7, Area_cnt) = ActiveSheet.Cells(7, Area_cnt) + 1
End If
Arealist_cnt = Arealist_cnt + 1
Loop
If Area = "沖縄" Then Exit For
Next
list_cnt = list_cnt + 1
Loop
End With
End Sub
初心者です。現在、下記に記すプログラムでカレンダーを使用していまうす。日付を選択して「閉じる」の×ボタンを押さないと閉じれないんですが、日付選択で閉じるようにできないでしょうか？
Sub myCalendar()
Range("N1").Select
UserForm1.Show
End Sub
よろしくお願いいたします。
VB.NET初心者です。
String型からDate型へキャストをしたいのですが、よそのサイト様を参考にいろいろ試してみたのですが、うまくいかず困っています。どなたか、教えてください。よろしくお願いします。
エラー：『文字列は有効なDateTimeではありません』
Dim str1 As String = "2009/08/01"
または
Dim str2 As String = "2009/08/01 12:00:00"
str2 = str2.substring(0,10).replacce("/","")
の形式で取得した値を"yyyy/mm/dd形式で"Date方へキャストしたいのですが....
Dim dt As Date = Date.ParseExact(str, "yyyy/MM/dd", Nothing)
Dim dt As Date = Date.parse(str)
Dim dt As Date = Ctype(str, Date)
など試してみたのですが、#8/1/2009#のように書式がおかしいのですが、どこを直せばよいのでしょうか？ Date.ParseExact（）でできると思っていたのですが、悩んでいます。よろしくお願いします。
所属名毎にシートを作成し都道府県と所属名が一致したら集計させループさせたいのですがうまくいきません。
データには列135に所属名があり139に都道府県が入っています。
解約シートには6行目5列目から都道府県名が入っています。
最終が沖縄となるので沖縄が入れば抜けるようになっています。
今の状態で実行すると所属名の数毎、都道府県の件数を更にを集計してしまいます。
一度シートを作成した所属はFor～Nextを読み込まないようにしたいのですが
自分なりに制御させようと試みましたが上手く集計されません。
何かアドバイス等ありましたらお願いします。
Dim ingcnt As Integer
Dim intHjn As Integer
Dim strhjn As String
Dim Areastrhjn As String
Dim list_cnt As Integer
Dim Arealist_cnt As Integer
Dim (2) As Worksheet
Dim Area_cnt As Integer
With Worksheets("解約データ")
Set (2) = Sheets("解約・所属別")
list_cnt = 2
strhjn = ""
Area_cnt = 5
'所属CD1毎のシート作成
Do While Trim$(.Cells(list_cnt, 1)) <> "" '(A列)が空白でない限り繰り返す
If strhjn <> .Cells(list_cnt, 135) Then
strhjn = .Cells(list_cnt, 135)
Sheets("解約").Select
Sheets("解約").Copy Before:=Sheets("解約")
Sheets("解約(2)").Name = strhjn
ActiveSheet.Cells(1, 15) = strhjn
End If
For Area_cnt = 5 To (2).Cells(6, (2).Columns.Count).End(xlToLeft).Column
Area = (2).Cells(6, Area_cnt)
Arealist_cnt = 2
Areastrhjn = ""
Do While Trim$(.Cells(Arealist_cnt, 1)) <> "" '(A列)が空白でない限り繰り返す
Areastrhjn = .Cells(Arealist_cnt, 135)
'エリア集計
If Areastrhjn = .Cells(Arealist_cnt, 135) And _
.Cells(Arealist_cnt, 139) = Area Then
ActiveSheet.Cells(7, Area_cnt) = ActiveSheet.Cells(7, Area_cnt) + 1
End If
Arealist_cnt = Arealist_cnt + 1
Loop
If Area = "沖縄" Then Exit For
Next
list_cnt = list_cnt + 1
Loop
End With
End Sub
所属名毎にシートを作成し都道府県と所属名が一致したら集計させループさせたいのですがうまくいきません。
データには列135に所属名があり139に都道府県が入っています。
解約シートには6行目5列目から都道府県名が入っています。
最終が沖縄となるので沖縄が入れば抜けるようになっています。
今の状態で実行すると所属名の数毎、都道府県の件数を更にを集計してしまいます。
一度シートを作成した所属はFor～Nextを読み込まないようにしたいのですが
自分なりに制御させようと試みましたが上手く集計されません。
何かアドバイス等ありましたらお願いします。
Dim ingcnt As Integer
Dim intHjn As Integer
Dim strhjn As String
Dim Areastrhjn As String
Dim list_cnt As Integer
Dim Arealist_cnt As Integer
Dim (2) As Worksheet
Dim Area_cnt As Integer
With Worksheets("解約データ")
Set (2) = Sheets("解約・所属別")
list_cnt = 2
strhjn = ""
Area_cnt = 5
'所属CD1毎のシート作成
Do While Trim$(.Cells(list_cnt, 1)) <> "" '(A列)が空白でない限り繰り返す
If strhjn <> .Cells(list_cnt, 135) Then
strhjn = .Cells(list_cnt, 135)
Sheets("解約").Select
Sheets("解約").Copy Before:=Sheets("解約")
Sheets("解約(2)").Name = strhjn
ActiveSheet.Cells(1, 15) = strhjn
End If
For Area_cnt = 5 To (2).Cells(6, (2).Columns.Count).End(xlToLeft).Column
Area = (2).Cells(6, Area_cnt)
Arealist_cnt = 2
Areastrhjn = ""
Do While Trim$(.Cells(Arealist_cnt, 1)) <> "" '(A列)が空白でない限り繰り返す
Areastrhjn = .Cells(Arealist_cnt, 135)
'エリア集計
If Areastrhjn = .Cells(Arealist_cnt, 135) And _
.Cells(Arealist_cnt, 139) = Area Then
ActiveSheet.Cells(7, Area_cnt) = ActiveSheet.Cells(7, Area_cnt) + 1
End If
Arealist_cnt = Arealist_cnt + 1
Loop
If Area = "沖縄" Then Exit For
Next
list_cnt = list_cnt + 1
Loop
End With
End Sub
