Excel VBA質問箱 IV

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

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


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

【35881】任意に数字を入れて結果を求めるVBAを教えてください うさちゃん 06/3/15(水) 12:11 質問[未読]
【35884】Re:任意に数字を入れて結果を求めるVBA... ちくたく 06/3/15(水) 13:58 回答[未読]
【35888】Re:任意に数字を入れて結果を求めるVB... うさちゃん 06/3/15(水) 14:57 質問[未読]
【35893】Re:任意に数字を入れて結果を求めるVB... ちくたく 06/3/15(水) 16:02 回答[未読]
【35895】Re:任意に数字を入れて結果を求めるVB... うさちゃん 06/3/15(水) 16:37 質問[未読]
【35907】Re:任意に数字を入れて結果を求めるVB... ちくたく 06/3/15(水) 18:35 発言[未読]
【35914】Re:任意に数字を入れて結果を求めるVB... うさちゃん 06/3/15(水) 21:35 質問[未読]
【35915】Re:任意に数字を入れて結果を求めるVB... やっちん 06/3/15(水) 22:15 発言[未読]
【35921】Re:任意に数字を入れて結果を求めるVB... やっちん 06/3/16(木) 0:39 発言[未読]
【35916】Re:任意に数字を入れて結果を求めるVB... ichinose 06/3/15(水) 22:17 発言[未読]
【35920】皆さん、どうもありがとうございました。 うさちゃん 06/3/16(木) 0:27 お礼[未読]
【35928】パラメータがバラバラの場合を教えてくだ... うさちゃん 06/3/16(木) 9:20 質問[未読]
【35964】Re:パラメータがバラバラの場合を教えてく... ichinose 06/3/16(木) 22:05 発言[未読]
【35979】Re:パラメータがバラバラの場合を教えてく... ちくたく 06/3/16(木) 23:48 発言[未読]
【35983】Re:パラメータがバラバラの場合を教えて... うさちゃん 06/3/17(金) 1:52 お礼[未読]
【35982】Re:パラメータがバラバラの場合を教えて... うさちゃん 06/3/17(金) 1:49 お礼[未読]

【35881】任意に数字を入れて結果を求めるVBAを...
質問  うさちゃん  - 06/3/15(水) 12:11 -

引用なし
パスワード
   エクセルで、3つのセルにそれぞれ任意に数字を入れて、その結果を別の2つのセルに求める表を作りました。この、3ヶ所に任意に数字を入れてその結果を求める作業を、VBAで自動化したいのですが、作ることはできますか?もしできるようでしたら、基本的な作り方を教えてください。

【35884】Re:任意に数字を入れて結果を求めるVB...
回答  ちくたく WEB  - 06/3/15(水) 13:58 -

引用なし
パスワード
   うさちゃん さん
こんにちは。

実行のタイミングがわかりませんが、
A1、B1、C1に数字を入れて以下のマクロを実行しますと、
E1、E2にそれぞれ3つの数字を足した物と乗算したものが表示されます。

はずしていたらごめんなさい。

Sub test()

  Dim A As Double, B As Double, C As Double
  
  '3つの数字を
  A = Range("A1").Value
  B = Range("B1").Value
  C = Range("C1").Value
  
  'なんかの処理してふたつのセルに出す。
  Range("E1").Value = A + B + C
  Range("E2").Value = A * B * C
  

End Sub

【35888】Re:任意に数字を入れて結果を求めるVB...
質問  うさちゃん  - 06/3/15(水) 14:57 -

引用なし
パスワード
   ちくたくさん、はじめまして。
ご回答ありがとうございます。

質問の仕方が悪かったようなので、
ちくたくさんのご回答を利用させていただいて、
もう少し詳しく質問させていただきます。

セルA1、B1、C1に、それぞれ例えば、1〜20までの数字を入れていって、
その結果が、セルE1、E2に反映されるとします。
そしてその結果を次々と、12列目にコピーして記録するとします。

これを手作業でやっていくと、20*20*20=8000通りの数字を
打ち込んでいかないといけないので、
これを何とか、VBAで自動的にできないかと思っているのです。


もしこれが、セルA1に、1〜20までの数字を入れていって、
その結果が、セルE1に反映され、その結果を次々と、
12列目にコピーして記録する、だったら、次のようになると思っています。
セルが複数になったらどうなるかを知りたいのです。


Sub macro1()
 
     For i = 1 To 20
    
      Cells(1, 1).Value = i
 
      Cells(i , 12).Value = Cells(1, 5).Value
      
     Next i

End Sub


よろしくお願いいたします。

>うさちゃん さん
>こんにちは。
>
>実行のタイミングがわかりませんが、
>A1、B1、C1に数字を入れて以下のマクロを実行しますと、
>E1、E2にそれぞれ3つの数字を足した物と乗算したものが表示されます。
>
>はずしていたらごめんなさい。
>
>Sub test()
>
>  Dim A As Double, B As Double, C As Double
>  
>  '3つの数字を
>  A = Range("A1").Value
>  B = Range("B1").Value
>  C = Range("C1").Value
>  
>  'なんかの処理してふたつのセルに出す。
>  Range("E1").Value = A + B + C
>  Range("E2").Value = A * B * C
>  
>
>End Sub

【35893】Re:任意に数字を入れて結果を求めるVB...
回答  ちくたく WEB  - 06/3/15(水) 16:02 -

引用なし
パスワード
   うさちゃん さん
こんにちは。

>質問の仕方が悪かったようなので、
>ちくたくさんのご回答を利用させていただいて、
>もう少し詳しく質問させていただきます。

いえいえ、こちらこそすいません。

>もしこれが、セルA1に、1〜20までの数字を入れていって、
>その結果が、セルE1に反映され、その結果を次々と、
>12列目にコピーして記録する、だったら、次のようになると思っています。
>セルが複数になったらどうなるかを知りたいのです。

For i = 1 To 20
   For j = 1 To 20
     For k = 1 To 20
        Range("E1") = i + j + k
        Range("E2") = i * j * k
     Next k
   For j
next i

みたいなことですか?
それとも乱数をつかってみたいなことでしょうか?

【35895】Re:任意に数字を入れて結果を求めるVB...
質問  うさちゃん  - 06/3/15(水) 16:37 -

引用なし
パスワード
   ちくたくさん、こんにちは。

また言葉足らずのようでしたので、書き加えておきます。

>For i = 1 To 20
>   For j = 1 To 20
>     For k = 1 To 20
>        Range("E1") = i + j + k
>        Range("E2") = i * j * k
>     Next k
>   For j
>next i
>
>みたいなことですか?
>それとも乱数をつかってみたいなことでしょうか?


パラメータのセルの値を順次変えて、
その結果のセルの値を別の場所に移す
という挙動をVBAでやりたいので、
計算自体は、エクセルに計算させて、
VBAには取り込まないのです。
計算式は、ブラックボックスだと思ってください。

【35907】Re:任意に数字を入れて結果を求めるVB...
発言  ちくたく WEB  - 06/3/15(水) 18:35 -

引用なし
パスワード
   うさちゃん さん

すいません、私の理解が悪いのでしょうが、

>パラメータのセルの値を順次変えて、
上記作業は手動ですか?
手動でしたら、Changeイベントなんかの使用も想定されます。

>その結果のセルの値を別の場所に移す
ここがわかりません。
計算結果があるのなら、それを変数に格納するなりして、
他のセルに移すとかしたらいいと思いますが、
私がねらいをはずしてる気がします。

逆に、何がうまくいっていないか、既存のコードなり、
考えて作ってみたものなりがあれば、お答えしやすいです。

あるいは、プロトコル的な手順があれば、
コード化は簡単です。

それよりも先に、識者が登場すればよいですが。

【35914】Re:任意に数字を入れて結果を求めるVB...
質問  うさちゃん  - 06/3/15(水) 21:35 -

引用なし
パスワード
   ちくたくさん、こんばんは。

ちょっと図にしてみました。

下のように、A1、B1、C1のセルに、
例えば、1〜20まで順次入力していって、
E1、F1のセルに答えが返るとします。
これを手作業でやっていくと、
A1、B1、C1を変えるだけで8000回かかります。
この入力をVBAに任せて、出てきた答えを例えばHとIの列に、
上から列記されたように表示させたいのです。
実際にマクロを実行したら、HとIの列に8000行のデータが現れて、
終了するようになると思います。


A1 B1 C1 → E1 F1
1 1 1 → 2 3
1 1 2 → 5 7
1 1 3 → 8 7
. . .   . .
. . .   . .
. . .   . .
20 20 18 → 5 0
20 20 19 → 9 1
20 20 20 → 6 4

【35915】Re:任意に数字を入れて結果を求めるVB...
発言  やっちん  - 06/3/15(水) 22:15 -

引用なし
パスワード
   ▼うさちゃん さん:
こんばんは。
こんなかんじでしょうか。
For i = 0 To 19
   For j = 0 To 19
     For k = 0 To 19
      Cells(1, 1).Value = i + 1
      Cells(1, 2).Value = j + 1
      Cells(1, 3).Value = k + 1
      Cells(i * 400 + j * 20 + k + 1 , 12).Value = Cells(1, 5).Value
      Cells(i * 400 + j * 20 + k + 1 , 13).Value = Cells(1, 6).Value
     Next k
   Next j
next i
簡単な計算であればセルの値のセットを繰り返すより、
計算もVBAにさせた方が早いと思いますよ。

【35916】Re:任意に数字を入れて結果を求めるVB...
発言  ichinose  - 06/3/15(水) 22:17 -

引用なし
パスワード
   うさちゃん さん,ちくたくさん、こんばんは。
つまり、総当たりリストが作成できればよいと言うことですね?

>ちょっと図にしてみました。
>
>下のように、A1、B1、C1のセルに、
>例えば、1〜20まで順次入力していって、
>E1、F1のセルに答えが返るとします。
>これを手作業でやっていくと、
>A1、B1、C1を変えるだけで8000回かかります。
>この入力をVBAに任せて、出てきた答えを例えばHとIの列に、
>上から列記されたように表示させたいのです。
>実際にマクロを実行したら、HとIの列に8000行のデータが現れて、
>終了するようになると思います。
>
>
>A1 B1 C1 → E1 F1
> 1 1 1 → 2 3
> 1 1 2 → 5 7
> 1 1 3 → 8 7
> . . .   . .
> . . .   . .
> . . .   . .
>20 20 18 → 5 0
>20 20 19 → 9 1
>20 20 20 → 6 4

この例を引用すると

標準モジュールに

'=====================================================
Sub main()
  Dim idx As Long
  Dim ans(1 To 3)
'  ↑総当たりメンバーを取得する配列
  Dim ss As Variant
  ss = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)
  Call init_totalhit(ss, 3)
  idx = 1
  Do While get_totalhit(ans()) = 0
    Range("a1:c1").Value = ans()
    Range(Cells(idx, "h"), Cells(idx, "i")).Value = Range("e1:f1").Value
    idx = idx + 1
    Loop
   
  Call term_totalhit

End Sub


別の標準モジュールに
'=============================================================
  Private c_myarray()
  Private c_idx() As Long

'===================================================================
Function init_totalhit(標本 As Variant, 抜取り数 As Long) As Double
'総当たりデータをセットする
'input : 標本 総当たりリストを作成する標本配列
'   : 抜取り数
'Output: init_totalhit 総あたり数
  Dim g0 As Long
  Erase c_myarray
  Erase c_idx
  ReDim c_myarray(1 To UBound(標本) - LBound(標本) + 1)
  For g0 = LBound(標本) To UBound(標本)
   c_myarray(IIf(LBound(標本) = 0, g0 + 1, g0)) = 標本(g0)
   Next g0
  init_totalhit = (UBound(標本) - LBound(標本) + 1) ^ 抜取り数
  ReDim c_idx(1 To 抜取り数)
  For idx = LBound(c_idx()) To UBound(c_idx())
    c_idx(idx) = 1
    Next
  c_idx(UBound(c_idx())) = 0
  
End Function
'======================================================================
Sub term_totalhit()
'総当たり処理の終了処理
  Erase c_myarray()
  Erase c_idx()
End Sub
'======================================================================
Function get_totalhit(ans()) As Long
'総当たりメンバーを配列に出力する
'output: ans() メンバの配列 添え字は必ず1から始まる配列を用意する
'    get_totalhit:0 -- 正常に配列取得
'            1 -- メンバの終わり
  get_totalhit = 1
  For i = UBound(c_idx()) To LBound(c_idx()) Step -1
    If c_idx(i) + 1 <= UBound(c_myarray(), 1) Then
     c_idx(i) = c_idx(i) + 1
     get_totalhit = 0
     Exit For
    Else
     c_idx(i) = 1
     End If
    Next
  If get_totalhit = 0 Then
    For i = LBound(c_idx()) To UBound(c_idx())
     ans(i) = c_myarray(c_idx(i))
     Next
    End If
End Function

として、当該シートをアクティブにして
実行してみて下さい。

総当たりのリストによるセルE1、F1の結果が
H列、i列に順次移行されます。

総当たりリストは、例ではA1,B1,C1の抜取り3つですが、
4つになっても簡単に移行出来るようにしておきました。
試してみて下さい

【35920】皆さん、どうもありがとうございました。
お礼  うさちゃん  - 06/3/16(木) 0:27 -

引用なし
パスワード
   ちくたくさん、やっちんさん、ichinoseさん、こんばんは。

ichinoseさんのお答えが、私の求めていたものでした。
どうもありがとうございました。
実際にお答え通り実行しましたら、求めている動作をしました。
実は私は、一度もマクロとかVBAを触ったことがなかったのですが、
それでも実行できましたので、完璧なお答えでした。
ichinoseさんのお答えを参考に、応用したいと思います。

ichinoseさんをはじめ、ちくたくさん、やっちんさん、
貴重なお時間を私のために割いてくださいまして、ありがとうございました。

【35921】Re:任意に数字を入れて結果を求めるVB...
発言  やっちん  - 06/3/16(木) 0:39 -

引用なし
パスワード
   ▼やっちん さん:
すいません、思いっきり勘違いしてました(^^;
よく読まないと。

【35928】パラメータがバラバラの場合を教えてくだ...
質問  うさちゃん  - 06/3/16(木) 9:20 -

引用なし
パスワード
   皆さん、こんにちは。

ichinoseさんのご回答の中で2つ質問があるので、教えてください。

1.例では、3つのセルとも1〜20の値とさせていただきましたが、
これが、A1は1〜5、B1は11〜20、C1は51〜75、
のように、バラバラの場合は、どのように記述すればよいのですか?

2.例えば、1〜200のような場合でも、
(1, 2, 3, 4, 5, 6、...中略...197, 198, 199, 200)と記述することになるのですか?

以上2点、よろしくお願いいたします。


>うさちゃん さん,ちくたくさん、こんばんは。
>つまり、総当たりリストが作成できればよいと言うことですね?
>
>>ちょっと図にしてみました。
>>
>>下のように、A1、B1、C1のセルに、
>>例えば、1〜20まで順次入力していって、
>>E1、F1のセルに答えが返るとします。
>>これを手作業でやっていくと、
>>A1、B1、C1を変えるだけで8000回かかります。
>>この入力をVBAに任せて、出てきた答えを例えばHとIの列に、
>>上から列記されたように表示させたいのです。
>>実際にマクロを実行したら、HとIの列に8000行のデータが現れて、
>>終了するようになると思います。
>>
>>
>>A1 B1 C1 → E1 F1
>> 1 1 1 → 2 3
>> 1 1 2 → 5 7
>> 1 1 3 → 8 7
>> . . .   . .
>> . . .   . .
>> . . .   . .
>>20 20 18 → 5 0
>>20 20 19 → 9 1
>>20 20 20 → 6 4
>
>この例を引用すると
>
>標準モジュールに
>
>'=====================================================
>Sub main()
>  Dim idx As Long
>  Dim ans(1 To 3)
>'  ↑総当たりメンバーを取得する配列
>  Dim ss As Variant
>  ss = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)
>  Call init_totalhit(ss, 3)
>  idx = 1
>  Do While get_totalhit(ans()) = 0
>    Range("a1:c1").Value = ans()
>    Range(Cells(idx, "h"), Cells(idx, "i")).Value = Range("e1:f1").Value
>    idx = idx + 1
>    Loop
>   
>  Call term_totalhit
>
>End Sub
>
>
>別の標準モジュールに
>'=============================================================
>  Private c_myarray()
>  Private c_idx() As Long
>
>'===================================================================
>Function init_totalhit(標本 As Variant, 抜取り数 As Long) As Double
>'総当たりデータをセットする
>'input : 標本 総当たりリストを作成する標本配列
>'   : 抜取り数
>'Output: init_totalhit 総あたり数
>  Dim g0 As Long
>  Erase c_myarray
>  Erase c_idx
>  ReDim c_myarray(1 To UBound(標本) - LBound(標本) + 1)
>  For g0 = LBound(標本) To UBound(標本)
>   c_myarray(IIf(LBound(標本) = 0, g0 + 1, g0)) = 標本(g0)
>   Next g0
>  init_totalhit = (UBound(標本) - LBound(標本) + 1) ^ 抜取り数
>  ReDim c_idx(1 To 抜取り数)
>  For idx = LBound(c_idx()) To UBound(c_idx())
>    c_idx(idx) = 1
>    Next
>  c_idx(UBound(c_idx())) = 0
>  
>End Function
>'======================================================================
>Sub term_totalhit()
>'総当たり処理の終了処理
>  Erase c_myarray()
>  Erase c_idx()
>End Sub
>'======================================================================
>Function get_totalhit(ans()) As Long
>'総当たりメンバーを配列に出力する
>'output: ans() メンバの配列 添え字は必ず1から始まる配列を用意する
>'    get_totalhit:0 -- 正常に配列取得
>'            1 -- メンバの終わり
>  get_totalhit = 1
>  For i = UBound(c_idx()) To LBound(c_idx()) Step -1
>    If c_idx(i) + 1 <= UBound(c_myarray(), 1) Then
>     c_idx(i) = c_idx(i) + 1
>     get_totalhit = 0
>     Exit For
>    Else
>     c_idx(i) = 1
>     End If
>    Next
>  If get_totalhit = 0 Then
>    For i = LBound(c_idx()) To UBound(c_idx())
>     ans(i) = c_myarray(c_idx(i))
>     Next
>    End If
>End Function
>
>として、当該シートをアクティブにして
>実行してみて下さい。
>
>総当たりのリストによるセルE1、F1の結果が
>H列、i列に順次移行されます。
>
>総当たりリストは、例ではA1,B1,C1の抜取り3つですが、
>4つになっても簡単に移行出来るようにしておきました。
>試してみて下さい

【35964】Re:パラメータがバラバラの場合を教えて...
発言  ichinose  - 06/3/16(木) 22:05 -

引用なし
パスワード
   ▼うさちゃん さん:
こんばんは。

>実は私は、一度もマクロとかVBAを触ったことがなかったのですが、
ということを伺って、ちょっと前回のコードを提示したことを後悔しました。
プログラミング初心者の方には難しかったかもしれません。
やっちんさんが提示された

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=35915;id=excel

結果はうさちゃん さんのご希望とは違ったかもしれませんが、
考え方はこれです。
これが理解できないとこの種類の処理(他にも組合せや順列など)を
作成する事ができませんよ!!
↑このコードをじっくり理解してみて下さい。


で、コードを提示してしまったので途中で止めるのもなんなので・・・。

>1.例では、3つのセルとも1〜20の値とさせていただきましたが、
>これが、A1は1〜5、B1は11〜20、C1は51〜75、
>のように、バラバラの場合は、どのように記述すればよいのですか?
>
>2.例えば、1〜200のような場合でも、
>(1, 2, 3, 4, 5, 6、...中略...197, 198, 199, 200)と記述することになるのですか?

まず、総当たりリストを取得するプロシジャーを大きく変更しました。

標準モジュールに
'====================================================================
 Private c_myarray() As Variant
 Private c_idx() As Long
 Private c_max() As Long
'===================================================================
Function init_totalhit(ParamArray 標本() As Variant) As Double
'総当たりデータをセットする
'input : 標本 総当たりリストを作成する標本配列
'Output: init_totalhit 総あたり数
  Dim g0 As Long, g1 As Long
  Dim tarray As Variant
  Erase c_myarray()
  Erase c_idx()
  Erase c_max()
  ReDim c_idx(1 To UBound(標本()) - LBound(標本()) + 1)
  ReDim c_max(1 To UBound(標本()) - LBound(標本()) + 1)
  init_totalhit = 1
  For g0 = LBound(標本()) To UBound(標本())
    c_max(g0 + 1) = UBound(標本(g0)) - LBound(標本(g0)) + 1
    init_totalhit = init_totalhit * c_max(g0 + 1)
    Next g0
  ReDim c_myarray(1 To Application.Max(c_max()), 1 To UBound(標本()) - LBound(標本()) + 1)
  For g0 = LBound(標本()) To UBound(標本())
    tarray = 標本(g0)
    For g1 = LBound(tarray) To UBound(tarray)
      c_myarray(IIf(LBound(tarray) = 0, g1 + 1, g1), g0 + 1) = tarray(g1)
      Next g1
    Next g0
  For idx = LBound(c_idx()) To UBound(c_idx())
    c_idx(idx) = 1
    Next
  c_idx(UBound(c_idx())) = 0
End Function
'======================================================================
Sub term_totalhit()
'総当たり処理の終了処理
  Erase c_myarray()
  Erase c_idx()
  Erase c_max()
End Sub
'======================================================================
Function get_totalhit(ans()) As Long
'総当たりメンバーを配列に出力する
'output: ans() メンバの配列 添え字は必ず1から始まる配列を用意する
'    get_totalhit:0 -- 正常に配列取得
'            1 -- メンバの終わり
  get_totalhit = 1
  For i = UBound(c_idx()) To LBound(c_idx()) Step -1
    If c_idx(i) + 1 <= c_max(i) Then
     c_idx(i) = c_idx(i) + 1
     get_totalhit = 0
     Exit For
    Else
     c_idx(i) = 1
     End If
    Next
  If get_totalhit = 0 Then
    For i = LBound(c_idx()) To UBound(c_idx())
     ans(i) = c_myarray(c_idx(i), i)
     Next
    End If
End Function


別の標準モジュールに


'====================================================================
'A1に1〜5、B1に11〜20 C1に51〜75の場合
Sub main1()
  Dim idx As Long
  Dim ans(1 To 3)
'  ↑総当たりメンバーを取得する配列
  Call init_totalhit(Array(1, 2, 3, 4, 5), _
        Array(11, 12, 13, 14, 15, 16, 17, 18, 19, 20), _
        Array(51, 52, 53, 54, 55, 56, 57, 58, 59, 60, _
           61, 62, 63, 64, 65, 66, 67, 68, 69, 70, _
           71, 72, 73, 74, 75))
  idx = 1
  Do While get_totalhit(ans()) = 0
    Range("a1:c1").Value = ans()
    Range(Cells(idx, "h"), Cells(idx, "i")).Value = Range("e1:f1").Value
    idx = idx + 1
    Loop
  
  Call term_totalhit

End Sub


'=======================================================================
'A1,B1,C1共に1〜20の場合
'つまり、前回のコードと同じ結果をだすためには
Sub main2()
  Dim idx As Long
  Dim ans(1 To 3)
'  ↑総当たりメンバーを取得する配列
  Dim ss(0 To 19) As Variant
  For idx = 0 To 19
   ss(idx) = idx + 1
   Next
  Call init_totalhit(ss(), ss(), ss())
  idx = 1
  Do While get_totalhit(ans()) = 0
    Range("a1:c1").Value = ans()
    Range(Cells(idx, "h"), Cells(idx, "i")).Value = Range("e1:f1").Value
    idx = idx + 1
    Loop

  Call term_totalhit

End Sub


main1、main2のコードの中でご質問にお答えしています。

試してみて下さい。

【35979】Re:パラメータがバラバラの場合を教えて...
発言  ちくたく E-MAIL  - 06/3/16(木) 23:48 -

引用なし
パスワード
   ichinose さん、やっちんさん。
こんばんは。
すいません。フォローありがとうございました。
目についた、瞬時回答可能な案件以外は回答できない状況で、
回答していたので、気になっていましたので。
ひとまず、お礼を申し上げます。
うさちゃんさんには、私のちょっと忙しい状況での中途半端な回答をお詫び申し上げます。

【35982】Re:パラメータがバラバラの場合を教えて...
お礼  うさちゃん  - 06/3/17(金) 1:49 -

引用なし
パスワード
   ichinoseさん、こんばんは。

たびたびありがとうございます。
大変参考になりました。

一見さんみたいな私のために、
親切にしてくださいましてありがとうございました。

重ねてお礼申し上げます。

【35983】Re:パラメータがバラバラの場合を教えて...
お礼  うさちゃん  - 06/3/17(金) 1:52 -

引用なし
パスワード
   ちくたくさん、こんばんは。

お忙しい中、気に掛けていただきましてありがとうございます。

重ねてお礼申し上げます。

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