|
こんにちは。かみちゃん です。
> 全部コードを書くのは読むのが疲れるかなと思いました
いえ、実行できるコードが掲載されていれば、少なくとも、私は、シートなどサンプル
データなどの環境を用意して、まずは、テストしてみるようにしています。
そのため、いろいろな掲示板で、シートレイアウト、サンプルデータ、現在のコード、
期待している結果を示していただくようお願いしています。
> 下記のようなコードをいれました。そうすると、「3.店別個人別売上数」
> より下を見に行かずにおわってしまいました。
> If i > 1 Then
> Exit Sub
> End If
>
> jの初期値と最終値の設定は下記のようです。
> 最初に一つめのタイトルのあるセルを検索し、↓
> SearchWord = TitleName(0)
> Set kiten2 = Worksheets("Sheet1").Columns(1).Find(What:=SearchWord, LookIn:=xlValues, LookAt:=xlWhole)
>
> そのセルからデータの最終行までを最終値にしています。
> For j = kiten2.Row + 1 To Range("A65536").End(xlUp).Row
変数 i と j の関係がよくわかりません。
お手数ですが、長くなってもいいので、コード全体を差し支えない程度に掲載していただ
くことはできませんか?
▼neptuneさん
> 例えば、このスレにも書き込んでくれているかみちゃんさんは私よりかなり
> 親切です。
>
> #かみちゃんさんお久しぶりです。こう↑書いたからと言って無理しないで下さいね。
おひさしぶりです。Acceessとの連携を得意とするneptuneさんにこのように言われると
恐縮です。
私は、特に初心者のころは、掲示板等でいろいろな方に親切にしていただき、そのおかげ
で、少しくらいは、VBAがわかってきたかな?という程度です。そのため、経験してい
ることは、できるだけ、親切にして、お役に立てたらいいなと思っています。
一緒に勉強していければ、うれしいですね。
今後ともよろしくお願いします。
|
|