Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7412 / 13645 ツリー ←次へ | 前へ→

【39315】2006/7月分のみ抽出したい場合 サン 06/6/22(木) 10:59 質問[未読]
【39317】Re:2006/7月分のみ抽出したい場合 Jaka 06/6/22(木) 11:13 発言[未読]
【39318】Re:2006/7月分のみ抽出したい場合 サン 06/6/22(木) 11:20 お礼[未読]
【39321】Re:2006/7月分のみ抽出したい場合 ハト 06/6/22(木) 11:39 発言[未読]
【39325】Re:2006/7月分のみ抽出したい場合 サン 06/6/22(木) 11:45 発言[未読]
【39337】Re:2006/7月分のみ抽出したい場合 ハト 06/6/22(木) 13:37 発言[未読]
【39340】Re:2006/7月分のみ抽出したい場合 サン 06/6/22(木) 14:26 発言[未読]
【39342】Re:2006/7月分のみ抽出したい場合 ハト 06/6/22(木) 14:45 回答[未読]
【39345】Re:2006/7月分のみ抽出したい場合 サン 06/6/22(木) 15:00 お礼[未読]
【39347】Re:2006/7月分のみ抽出したい場合 ハト 06/6/22(木) 15:07 発言[未読]
【39349】Re:2006/7月分のみ抽出したい場合 サン 06/6/22(木) 15:17 お礼[未読]
【39350】Re:2006/7月分のみ抽出したい場合 サン 06/6/22(木) 15:20 お礼[未読]

【39315】2006/7月分のみ抽出したい場合
質問  サン E-MAIL  - 06/6/22(木) 10:59 -

引用なし
パスワード
   御忙しい所、申し訳ございません。
下記のマクロを作成しましたがうまく動きません。
2006/7の入金予定分を他のシートにコピーしたいのですが
教えて頂けますでしょうか。

宜しくお願い致します。

Sub データ抽出販売()
'---------------------------宣言セクション(各項目 最大1000件まで格納する)---
Dim 顧客コード(1000) As String
Dim 顧客名(1000) As String
Dim 部署(1000) As String
Dim 担当者(1000) As String
Dim 売上日(1000) As Date
Dim 伝票番号(1000) As Single
Dim 売上金額(1000) As Single
Dim 未収金額(1000) As Single
Dim 備考(1000) As String
Dim 入金予定(1000) As Date
Dim 入金情報(1000) As String
Dim 当社担当(1000) As String
Dim UHNAMK(1000) As String


Dim n As Integer
Dim m As Integer
Dim i As Integer

Dim mstr As String


'-----------------------メッセージボックスの表示------------------------------
mstr = InputBox("何月分を抽出しますか?(数字のみ)", "抽出月指定")

'----------------------該当データを一旦メモリ上に格納する---------------------
Sheets("販売").Select
n = 0
Range("J1").Select

Do While ActiveCell <> "" '----------A列で空欄がくるまで繰り返す
      
  If Month(ActiveCell) = Val(mstr) Then '----メッセージボックスで入力した月のデータを格納
      顧客コード(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      顧客名(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      部署(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      担当者(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      売上日(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      伝票番号(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      売上金額(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      未収金額(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      備考(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      入金予定(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      入金情報(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      当社担当(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, 1).Select
      UHNAMK(n) = ActiveCell.Cells.Value
      ActiveCell.Offset(0, -12).Select
          
      
      n = n + 1
   Else
     
    End If
    ActiveCell.Offset(1, 0).Select
  Loop
  

'----------------------抽出シート作成----------------------------------------
 
  Sheets.Add After:=Worksheets(Worksheets.Count) '----------シート挿入
  ActiveSheet.Name = mstr & "月分"        '----------シート名
   
  
  ActiveSheet.Range("A1").Select
  
    ActiveCell.Cells.Value = "顧客コード"     '----------項目名
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "顧客名"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "部署"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "担当者"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "売上日"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "伝票番号"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "売上金額"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "未収金額"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "備考"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "入金予定"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "入金情報"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "当社担当"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = "UHNAMK"
    ActiveCell.Offset(1, -13).Select


  For i = 0 To n - 1              '-----------メモリ上に格納していたデータを代入
    ActiveCell.Cells.Value = 顧客コード(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = 顧客名(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = 部署(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = 担当者(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = 売上日(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = 伝票番号(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = 売上金額(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = 未収金額(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = 備考(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = 入金予定(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = 入金情報(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = 当社担当(i)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Cells.Value = UHNAMK(i)
    ActiveCell.Offset(1, -13).Select


  Next i
  
  ActiveSheet.Range("A1").Select


End Sub

【39317】Re:2006/7月分のみ抽出したい場合
発言  Jaka  - 06/6/22(木) 11:13 -

引用なし
パスワード
   私だったら、オートフィルタで抽出したい月の始まりから終わりまでを抽出しますけど...。
(年/抽出月/1〜年/抽出月/抽出月の終わりまで)
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=102;id=FAQ

【39318】Re:2006/7月分のみ抽出したい場合
お礼  サン E-MAIL  - 06/6/22(木) 11:20 -

引用なし
パスワード
   ▼Jaka さん:
何度もすいませんでした。
オートフィルターで7月分と作ったのですが、
毎月出すものなので、2006/7と入力しただけで、出来るマクロは
ないかなと思ってしまいました。

何度もすいませんでした。有難うございました。

>私だったら、オートフィルタで抽出したい月の始まりから終わりまでを抽出しますけど...。
>(年/抽出月/1〜年/抽出月/抽出月の終わりまで)
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=102;id=FAQ

【39321】Re:2006/7月分のみ抽出したい場合
発言  ハト  - 06/6/22(木) 11:39 -

引用なし
パスワード
   こんにちは

▼サン さん:
>御忙しい所、申し訳ございません。
>下記のマクロを作成しましたがうまく動きません。
>2006/7の入金予定分を他のシートにコピーしたいのですが
>教えて頂けますでしょうか。
>
>宜しくお願い致します。


>'----------------------該当データを一旦メモリ上に格納する---------------------
>Sheets("販売").Select
>n = 0
>Range("J1").Select

セルJ1をセレクトしてありますが、

>Do While ActiveCell <> "" '----------A列で空欄がくるまで繰り返す
>      

A列で判定?
年月日はA列にあるんですか?

【39325】Re:2006/7月分のみ抽出したい場合
発言  サン E-MAIL  - 06/6/22(木) 11:45 -

引用なし
パスワード
   ▼ハト さん:

申し訳ございません。間違えました。

E列とJ列に入っていますが、
J列のデータ(入金予定日)で抽出したいのですが
何かいい方法はありますでしょか。

御忙しい所、申し訳ございません。

>こんにちは
>
>▼サン さん:
>>御忙しい所、申し訳ございません。
>>下記のマクロを作成しましたがうまく動きません。
>>2006/7の入金予定分を他のシートにコピーしたいのですが
>>教えて頂けますでしょうか。
>>
>>宜しくお願い致します。
>
>
>>'----------------------該当データを一旦メモリ上に格納する---------------------
>>Sheets("販売").Select
>>n = 0
>>Range("J1").Select
>
>セルJ1をセレクトしてありますが、
>
>>Do While ActiveCell <> "" '----------A列で空欄がくるまで繰り返す
>>      
>
>A列で判定?
>年月日はA列にあるんですか?

【39337】Re:2006/7月分のみ抽出したい場合
発言  ハト  - 06/6/22(木) 13:37 -

引用なし
パスワード
   確認ですが、

質問1
7月分として

>  mstr = InputBox("何月分を抽出しますか?(数字のみ)", "抽出月指定")

で入力する値は

2006/7

ですか?

だとすると

Val(mstr)

は『2006』になりますが・・・


質問2

>      顧客コード(n) = ActiveCell.Cells.Value

それとここは『J列』がActiveCellのままです
顧客コードはどこの列に入力されてますか?

【39340】Re:2006/7月分のみ抽出したい場合
発言  サン E-MAIL  - 06/6/22(木) 14:26 -

引用なし
パスワード
   ▼ハト さん:

 A1    B1 C1  D1   E1   F1     G1
顧客コード 顧客名    部署 担当者 売上日  伝票番号  売上金額
1000000  ××  ×× ××  2006/01/01 000000   100,000

 H1   I1   J1     K1    L1  M1
未収金額 備考  入金予定      入金情報 当社担当 UHNAMK
100,000  ××     2006/07/01  ××   ××   ××

とエクセルのファイルになっています。

質問1の回答ですが・・・
申し訳ございません。
あの数式で年と月を選択してくれるものだと思っていました。

質問2の回答ですが・・・
上記の記入で解りますでしょうか。

何度も何度も申し訳ございません。


>確認ですが、
>
>質問1
>7月分として
>
>>  mstr = InputBox("何月分を抽出しますか?(数字のみ)", "抽出月指定")
>
>で入力する値は
>
>2006/7
>
>ですか?
>
>だとすると
>
>Val(mstr)
>
>は『2006』になりますが・・・
>
>
>質問2
>
>>      顧客コード(n) = ActiveCell.Cells.Value
>
>それとここは『J列』がActiveCellのままです
>顧客コードはどこの列に入力されてますか?

【39342】Re:2006/7月分のみ抽出したい場合
回答  ハト  - 06/6/22(木) 14:45 -

引用なし
パスワード
   ▼サン さん:
>
> A1    B1 C1  D1   E1   F1     G1
>顧客コード 顧客名    部署 担当者 売上日  伝票番号  売上金額
>1000000  ××  ×× ××  2006/01/01 000000   100,000
>
> H1   I1   J1     K1    L1  M1
>未収金額 備考  入金予定      入金情報 当社担当 UHNAMK
>100,000  ××     2006/07/01  ××   ××   ××
>
>とエクセルのファイルになっています。
>
>質問1の回答ですが・・・
>申し訳ございません。
>あの数式で年と月を選択してくれるものだと思っていました。
>
>質問2の回答ですが・・・
>上記の記入で解りますでしょうか。
>
>何度も何度も申し訳ございません。
>

どうもSELECT、OFFSET を使っていて混乱なされていたようですね
こういうケースではSelectを使わないでやる方法の方が良さそうです

サンさんのを元に作ると次のような感じですね
お試しください
(まだ改善の余地はありそうですが・・・)

Sub データ抽出販売()
'---------------------------宣言セクション(各項目 最大1000件まで格納する)---
Dim 顧客コード(1000) As String
Dim 顧客名(1000) As String
Dim 部署(1000) As String
Dim 担当者(1000) As String
Dim 売上日(1000) As Date
Dim 伝票番号(1000) As Single
Dim 売上金額(1000) As Single
Dim 未収金額(1000) As Single
Dim 備考(1000) As String
Dim 入金予定(1000) As Date
Dim 入金情報(1000) As String
Dim 当社担当(1000) As String
Dim UHNAMK(1000) As String

Dim n As Integer
Dim i As Integer

Dim mstr As String

Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim TDate As Date
Dim SName As String

'-----------------------メッセージボックスの表示------------------------------
  mstr = InputBox("何月分を抽出しますか?(数字のみ)", "抽出月指定")

'----------------------該当データを一旦メモリ上に格納する---------------------
  Set WS1 = ThisWorkbook.Worksheets("販売")

  n = 0
  i = 0
  
  Do While WS1.Cells(i + 1, "A") <> "" '----------A列で空欄がくるまで繰り返す
   
    TDate = WS1.Cells(i + 1, "J")
  
    If Year(TDate) = Year(mstr) And Month(TDate) = Month(mstr) Then '----メッセージボックスで入力した月のデータを格納
      
      顧客コード(n) = WS1.Cells(i + 1, "A").Value
      顧客名(n) = WS1.Cells(i + 1, "B").Value
      部署(n) = WS1.Cells(i + 1, "C").Value
      担当者(n) = WS1.Cells(i + 1, "D").Value
      売上日(n) = WS1.Cells(i + 1, "E").Value
      伝票番号(n) = WS1.Cells(i + 1, "F").Value
      売上金額(n) = WS1.Cells(i + 1, "G").Value
      未収金額(n) = WS1.Cells(i + 1, "H").Value
      備考(n) = WS1.Cells(i + 1, "I").Value
      入金予定(n) = WS1.Cells(i + 1, "J").Value
      入金情報(n) = WS1.Cells(i + 1, "K").Value
      当社担当(n) = WS1.Cells(i + 1, "L").Value
      UHNAMK(n) = WS1.Cells(i + 1, "M").Value
   
      n = n + 1
   
    End If
    i = i + 1
    
  Loop

'----------------------抽出シート作成----------------------------------------
 
  Sheets.Add After:=Worksheets(Worksheets.Count) '----------シート挿入
  SName = Year(mstr) & "-" & Month(mstr) & "月分" '----------シート名(シート名に『/』は使えない)
  ActiveSheet.Name = SName
  
  Set WS2 = ThisWorkbook.Worksheets(SName)
 
  WS2.Range("A1").Value = "顧客コード"     '----------項目名
  WS2.Range("B1").Value = "顧客名"
  WS2.Range("C1").Value = "部署"
  WS2.Range("D1").Value = "担当者"
  WS2.Range("E1").Value = "売上日"
  WS2.Range("F1").Value = "伝票番号"
  WS2.Range("G1").Value = "売上金額"
  WS2.Range("H1").Value = "未収金額"
  WS2.Range("I1").Value = "備考"
  WS2.Range("J1").Value = "入金予定"
  WS2.Range("K1").Value = "入金情報"
  WS2.Range("L1").Value = "当社担当"
  WS2.Range("M1").Value = "UHNAMK"

  For i = 0 To n - 1              '-----------メモリ上に格納していたデータを代入
    
    WS2.Cells(i + 2, "A").Value = 顧客コード(i)
    WS2.Cells(i + 2, "B").Value = 顧客名(i)
    WS2.Cells(i + 2, "C").Value = 部署(i)
    WS2.Cells(i + 2, "D").Value = 担当者(i)
    WS2.Cells(i + 2, "E").Value = 売上日(i)
    WS2.Cells(i + 2, "F").Value = 伝票番号(i)
    WS2.Cells(i + 2, "G").Value = 売上金額(i)
    WS2.Cells(i + 2, "H").Value = 未収金額(i)
    WS2.Cells(i + 2, "I").Value = 備考(i)
    WS2.Cells(i + 2, "J").Value = 入金予定(i)
    WS2.Cells(i + 2, "K").Value = 入金情報(i)
    WS2.Cells(i + 2, "L").Value = 当社担当(i)
    WS2.Cells(i + 2, "M").Value = UHNAMK(i)

  Next i
 
  WS2.Range("A1").Select

  Set WS1 = Nothing
  Set WS2 = Nothing

End Sub

【39345】Re:2006/7月分のみ抽出したい場合
お礼  サン E-MAIL  - 06/6/22(木) 15:00 -

引用なし
パスワード
   ▼ハト さん:

有難うございます。

大変申し訳ないのですが、

TDate = WS1.Cells(i + 1, "J")
の所が黄色になって止まってしまいます。

なぜなのかわからないので、
何度も大変申し訳ございませんが
教えて頂けますでしょうか。

御忙しい所、申し訳ございません。


>▼サン さん:
>>
>> A1    B1 C1  D1   E1   F1     G1
>>顧客コード 顧客名    部署 担当者 売上日  伝票番号  売上金額
>>1000000  ××  ×× ××  2006/01/01 000000   100,000
>>
>> H1   I1   J1     K1    L1  M1
>>未収金額 備考  入金予定      入金情報 当社担当 UHNAMK
>>100,000  ××     2006/07/01  ××   ××   ××
>>
>>とエクセルのファイルになっています。
>>
>>質問1の回答ですが・・・
>>申し訳ございません。
>>あの数式で年と月を選択してくれるものだと思っていました。
>>
>>質問2の回答ですが・・・
>>上記の記入で解りますでしょうか。
>>
>>何度も何度も申し訳ございません。
>>
>
>どうもSELECT、OFFSET を使っていて混乱なされていたようですね
>こういうケースではSelectを使わないでやる方法の方が良さそうです
>
>サンさんのを元に作ると次のような感じですね
>お試しください
>(まだ改善の余地はありそうですが・・・)
>
>Sub データ抽出販売()
>'---------------------------宣言セクション(各項目 最大1000件まで格納する)---
>Dim 顧客コード(1000) As String
>Dim 顧客名(1000) As String
>Dim 部署(1000) As String
>Dim 担当者(1000) As String
>Dim 売上日(1000) As Date
>Dim 伝票番号(1000) As Single
>Dim 売上金額(1000) As Single
>Dim 未収金額(1000) As Single
>Dim 備考(1000) As String
>Dim 入金予定(1000) As Date
>Dim 入金情報(1000) As String
>Dim 当社担当(1000) As String
>Dim UHNAMK(1000) As String
>
>Dim n As Integer
>Dim i As Integer
>
>Dim mstr As String
>
>Dim WS1 As Worksheet
>Dim WS2 As Worksheet
>Dim TDate As Date
>Dim SName As String
>
>'-----------------------メッセージボックスの表示------------------------------
>  mstr = InputBox("何月分を抽出しますか?(数字のみ)", "抽出月指定")
>
>'----------------------該当データを一旦メモリ上に格納する---------------------
>  Set WS1 = ThisWorkbook.Worksheets("販売")
>
>  n = 0
>  i = 0
>  
>  Do While WS1.Cells(i + 1, "A") <> "" '----------A列で空欄がくるまで繰り返す
>   
>    TDate = WS1.Cells(i + 1, "J")
>  
>    If Year(TDate) = Year(mstr) And Month(TDate) = Month(mstr) Then '----メッセージボックスで入力した月のデータを格納
>      
>      顧客コード(n) = WS1.Cells(i + 1, "A").Value
>      顧客名(n) = WS1.Cells(i + 1, "B").Value
>      部署(n) = WS1.Cells(i + 1, "C").Value
>      担当者(n) = WS1.Cells(i + 1, "D").Value
>      売上日(n) = WS1.Cells(i + 1, "E").Value
>      伝票番号(n) = WS1.Cells(i + 1, "F").Value
>      売上金額(n) = WS1.Cells(i + 1, "G").Value
>      未収金額(n) = WS1.Cells(i + 1, "H").Value
>      備考(n) = WS1.Cells(i + 1, "I").Value
>      入金予定(n) = WS1.Cells(i + 1, "J").Value
>      入金情報(n) = WS1.Cells(i + 1, "K").Value
>      当社担当(n) = WS1.Cells(i + 1, "L").Value
>      UHNAMK(n) = WS1.Cells(i + 1, "M").Value
>   
>      n = n + 1
>   
>    End If
>    i = i + 1
>    
>  Loop
>
>'----------------------抽出シート作成----------------------------------------
> 
>  Sheets.Add After:=Worksheets(Worksheets.Count) '----------シート挿入
>  SName = Year(mstr) & "-" & Month(mstr) & "月分" '----------シート名(シート名に『/』は使えない)
>  ActiveSheet.Name = SName
>  
>  Set WS2 = ThisWorkbook.Worksheets(SName)
> 
>  WS2.Range("A1").Value = "顧客コード"     '----------項目名
>  WS2.Range("B1").Value = "顧客名"
>  WS2.Range("C1").Value = "部署"
>  WS2.Range("D1").Value = "担当者"
>  WS2.Range("E1").Value = "売上日"
>  WS2.Range("F1").Value = "伝票番号"
>  WS2.Range("G1").Value = "売上金額"
>  WS2.Range("H1").Value = "未収金額"
>  WS2.Range("I1").Value = "備考"
>  WS2.Range("J1").Value = "入金予定"
>  WS2.Range("K1").Value = "入金情報"
>  WS2.Range("L1").Value = "当社担当"
>  WS2.Range("M1").Value = "UHNAMK"
>
>  For i = 0 To n - 1              '-----------メモリ上に格納していたデータを代入
>    
>    WS2.Cells(i + 2, "A").Value = 顧客コード(i)
>    WS2.Cells(i + 2, "B").Value = 顧客名(i)
>    WS2.Cells(i + 2, "C").Value = 部署(i)
>    WS2.Cells(i + 2, "D").Value = 担当者(i)
>    WS2.Cells(i + 2, "E").Value = 売上日(i)
>    WS2.Cells(i + 2, "F").Value = 伝票番号(i)
>    WS2.Cells(i + 2, "G").Value = 売上金額(i)
>    WS2.Cells(i + 2, "H").Value = 未収金額(i)
>    WS2.Cells(i + 2, "I").Value = 備考(i)
>    WS2.Cells(i + 2, "J").Value = 入金予定(i)
>    WS2.Cells(i + 2, "K").Value = 入金情報(i)
>    WS2.Cells(i + 2, "L").Value = 当社担当(i)
>    WS2.Cells(i + 2, "M").Value = UHNAMK(i)
>
>  Next i
> 
>  WS2.Range("A1").Select
>
>  Set WS1 = Nothing
>  Set WS2 = Nothing
>
>End Sub

【39347】Re:2006/7月分のみ抽出したい場合
発言  ハト  - 06/6/22(木) 15:07 -

引用なし
パスワード
   ▼サン さん:
>▼ハト さん:
>
>有難うございます。
>
>大変申し訳ないのですが、
>
>TDate = WS1.Cells(i + 1, "J")
>の所が黄色になって止まってしまいます。
>
>なぜなのかわからないので、
>何度も大変申し訳ございませんが
>教えて頂けますでしょうか。
>
>御忙しい所、申し訳ございません。
>

申し訳ありません、販売シートの1行目は標題なんですね

i = 0

となっているところを

i = 1

と変更してください

【39349】Re:2006/7月分のみ抽出したい場合
お礼  サン E-MAIL  - 06/6/22(木) 15:17 -

引用なし
パスワード
   ▼ハト さん:

何度も何度も申し訳ございません。

下記のようになおしたのですが、
まだ止まってしまいます。

大変申し訳ございませんが、
もう1度教えて頂けますでしょうか。

本当に申し訳ございません。

>▼サン さん:
>>▼ハト さん:
>>
>>有難うございます。
>>
>>大変申し訳ないのですが、
>>
>>TDate = WS1.Cells(i + 1, "J")
>>の所が黄色になって止まってしまいます。
>>
>>なぜなのかわからないので、
>>何度も大変申し訳ございませんが
>>教えて頂けますでしょうか。
>>
>>御忙しい所、申し訳ございません。
>>
>
>申し訳ありません、販売シートの1行目は標題なんですね
>
>i = 0
>
>となっているところを
>
>i = 1
>
>と変更してください

【39350】Re:2006/7月分のみ抽出したい場合
お礼  サン E-MAIL  - 06/6/22(木) 15:20 -

引用なし
パスワード
   ▼ハト さん:

大変申し訳ございません。

入金予定の中に0000/00/00をいう日付が入って下ります。
その日を全部削除すると出来ました。

本当に何度も何度も申し訳ございませんでした。
有難うございました。

>▼サン さん:
>>▼ハト さん:
>>
>>有難うございます。
>>
>>大変申し訳ないのですが、
>>
>>TDate = WS1.Cells(i + 1, "J")
>>の所が黄色になって止まってしまいます。
>>
>>なぜなのかわからないので、
>>何度も大変申し訳ございませんが
>>教えて頂けますでしょうか。
>>
>>御忙しい所、申し訳ございません。
>>
>
>申し訳ありません、販売シートの1行目は標題なんですね
>
>i = 0
>
>となっているところを
>
>i = 1
>
>と変更してください

7412 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free