Results of 1 - 1 of about 37697 for IF (0.008 sec.)
- [[20050819230520]]
- #score: 1591
- @digest: 9fb643b77d9be2cfb82a3ade502c2e10
- @id: 16307
- @mdate: 2005-08-22T02:11:25Z
- @size: 25289
- @type: text/plain
- #keywords: mycolor (102775), tempc (79084), 続数 (44706), mytbl (21636), mydic (15168), 合: (10641), 連続 (10236), 探索 (10062), mykey (9737), 期化 (8194), 定条 (7552), interior (7350), colorindex (6047), 初期 (4952), case (4744), を初 (4654), soulman (4267), myrange (4257), 。fo (4023), 索範 (4020), 色付 (3690), screenupdating (3235), xlnone (3193), nothing (2901), variant (2499), 変数 (2195), explicit (1903), application (1867), 野鮎 (1833), プし (1811), パタ (1797), countif (1757)
- 『複数の検索範囲から同数値の連続数によってセルを色分けする』（aki）
A B C D E F G H I J K L M N O +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ 1 |15|3|22|4| |44|56|15|7| |1|65|44|68|51| Excel2002 +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ OS WindowsXP 2 |13|43|2|22| |8|82|43|22| |7|1|43|9|22| +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ 3 |33|68|51|3| |1|96|68|51| |2|46|68|51|3| +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ 4 |96|23|68|43| |2|25|43|22| |3|78|74|22|1| +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ 5 |1|23|68|43| |2|25|43|22| |3|78|74|22|1| +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ こんばんは、よろしくお願いします。 検索範囲A1:D5とF1:I5とK1:O5から同数値の連続数によってセルを色分け をしたいのですが、何かいい方法はありますでしょうか。 上図でA5,O4,F3,L2,K1(O5も含む)は"1"が5連続なので赤、同様に"2"は 4連続なので青、"3"は3連続なので黄・・・・・・・・・というように セルを色分けしたいのですが・・・。 どうぞよろしくお願いいたします。 ---- セル範囲A1:O5を選択して 条件付き書式で 条件1 =COUNTIF($A$1:$O$5,A1)>=5 パターンを赤に設定 条件2 =COUNTIF($A$1:$O$5,A1)=4 パターンを青に設定 条件3 =COUNTIF($A$1:$O$5,A1)=3 パターンを黄に設定 条件は3つまでしか設定できません。 これでどうでしょうか (wisemac21) ---- wisemac21さん、ご回答ありがとうございます。 試してみましたが、何故か上手くいきませんでした。 出来れば条件も3つ以上指定でき、E列とJ列は検索範囲からはずして色付けしたい のですが、いかがなものでしょうか。(aki) ---- セル範囲A1:D5,F1:I5,K1:O5の複数の範囲を選択して 条件付き書式で 条件1 =COUNTIF($A$1:$D$5,A1)+COUNTIF($F$1:$I$5,F1)+COUNTIF($K$1:$O$5,K1)>=5 パターンを赤に設定 条件2 =COUNTIF($A$1:$D$5,A1)+COUNTIF($F$1:$I$5,F1)+COUNTIF($K$1:$O$5,K1)=4 パターンを青に設定 条件3 =COUNTIF($A$1:$D$5,A1)+COUNTIF($F$1:$I$5,F1)+COUNTIF($K$1:$O$5,K1)=3 パターンを黄に設定 条件は3つまでしか設定できません。 条件が4以上はVBAと思います。詳しくありませんので悪しからず。 (wisemac21) ---- なんややりだしたら、、???(^^; とりあえず時間がないので。。。後で見直します。。 >検索範囲A1:D5とF1:I5とK1:O5から同数値の連続数によってセルを色分け Option Explicit Sub てすと() Dim A As Range Dim C As Range Dim MyColor As Long Dim MyKey As String Dim MyFlagA As Boolean Dim MyFlagB As Boolean Application.ScreenUpdating = False With ActiveSheet .Range("A1:O5").Interior.ColorIndex = xlNone For Each C In .Range("A1:D5") Set A = Nothing: MyFlagA = False: MyFlagB = False MyKey = C.Value MyDD .Range("A1:D5"), MyKey, A MyDD .Range("F1:I5"), MyKey, A, MyFlagA If MyFlagA Then MyDD .Range("K1:O5"), MyKey, A, MyFlagB If MyFlagB Then Select Case A.Count Case 7 MyColor = 7 Case 6 MyColor = 6 Case 5 MyColor = 5 Case 4 MyColor = 4 Case 3 MyColor = 3 Case Else MyColor = 8 End Select A.Interior.ColorIndex = MyColor End If End If Next End With Application.ScreenUpdating = True Set A = Nothing MsgBox "処理が完了しました。" End Sub Private Sub MyDD(ByVal MyTbl As Range, _ ByVal MyKey As String, _ ByRef MyRng As Range, _ Optional ByRef MyFlag As Boolean) Dim C As Range For Each C In MyTbl If C.Value <> "" And C.Interior.ColorIndex = xlNone Then If C.Value = MyKey Then MyFlag = True If Not MyRng Is Nothing Then Set MyRng = Union(MyRng, C) Else Set MyRng = C End If End If End If Next End Sub ちょっと見直し （SoulMan） ---- こういうことかな・・・。 Sub Test() Dim 連続数 As Long Set MyRange = Range("A1:O5") MyRowsCnt = MyRange.Rows.Count MyRange.Interior.ColorIndex = xlNone For Each C In MyRange If C.Value <> "" And C.Interior.ColorIndex < 0 Then For i = 1 To MyRowsCnt - 1 MyCount = Application.CountIf(C.Offset(i, 0).EntireRow, C.Value) If MyCount = 0 Then Exit For 連続数 = 連続数 + 1 Next i Select Case 連続数 Case 0 MyColor = 7 '1個の場合:ピンク Case 1 MyColor = 4 '2個の場合:緑 Case 2 MyColor = 6 '3個の場合:黄 Case 3 MyColor = 5 '4個の場合:青 Case 4 MyColor = 3 '5個の場合:赤 End Select For Each R In C.EntireRow.Cells(1, 1).Resize(連続数 + 1, 15) If R.Value = C.Value Then R.Interior.ColorIndex = MyColor End If Next R 連続数 = 0 'カウントのクリア End If Next C End Sub （川野鮎太郎） ---- ちょっと方法を変えてみました。 Option Explicit Sub てすと() Dim MyDic As Object Dim C As Range Dim x As Variant Dim y As Variant Dim MyKey As String Dim MyColor As Long Dim i As Long Set MyDic = CreateObject("Scripting.Dictionary") With ActiveSheet .Range("A1:O5").Interior.ColorIndex = xlNone For Each C In .Range("A1:D5") If Not MyDic.Exists(C.Value) Then MyDic(C.Value) = Array(1, 1) Else x = MyDic(C.Value) x(0) = x(0) + 1 MyDic(C.Value) = Array(x(0), x(1)) End If Next For Each C In .Range("F1:I5") If MyDic.Exists(C.Value) Then x = MyDic(C.Value) x(0) = x(0) + 1 x(1) = 2 MyDic(C.Value) = Array(x(0), x(1)) End If Next For Each C In .Range("K1:O5") If MyDic.Exists(C.Value) Then x = MyDic(C.Value) If x(1) = 2 Or x(1) = 3 Then x(0) = x(0) + 1 x(1) = 3 MyDic(C.Value) = Array(x(0), x(1)) End If End If Next x = MyDic.Keys Application.ScreenUpdating = False For i = LBound(x) To UBound(x) y = MyDic(x(i)) If y(1) = 3 Then MyKey = x(i) Select Case y(0) Case 7 MyColor = 7 Case 6 MyColor = 6 Case 5 MyColor = 5 Case 4 MyColor = 4 Case 3 MyColor = 3 Case Else MyColor = 8 End Select For Each C In .Range("A1:D5,F1:I5,K1:O5") If C.Value = MyKey Then C.Interior.ColorIndex = MyColor End If Next End If Next Application.ScreenUpdating = True End With Erase x, y Set MyDic = Nothing MsgBox "処理が完了しました。" End Sub （SoulMan） ---- SoulManさん、川野鮎太郎さん貴重な、お時間ありがとうございました。 結果ですが、SoulManさんの分は何故か正常に表示されるものと、 そうでないものが混在し表示されます。 川野鮎太郎さんの分は実行すると”コンパイルエラー””変数が定義されていません” のポップアップが出て3行目の”MyRange =”の部分に色がつき、実行できません。 実際に使用しているsheetの検索範囲はQ3:Z26、AB3:AK26、AM3:AV26なのですが、 この辺が影響しているのでしょうか? お時間がありましたら、よろしくご検討願います。(aki) ---- >何故か正常に表示されるものと、そうでないものが混在し表示されます。 えっ?どんなデータですか?正常な場合もあるのですね? エクセルからコピーしてここに貼り付けてみてくださいませんか? 追伸! というかぁ、、これってなんでもかんでも色をつけるんじゃないんですよね? 三つの範囲に''連続（重複）''している数字のみですよね? たとえば「15」は三番目の範囲にないのでは色はつきませんよね? 考え方はあっていますか? なんでもかんでも色を付けるだけなら簡単です。 Option Explicit Sub てすと() Dim MyDic As Object Dim C As Range Dim x As Variant Dim MyKey As String Dim MyColor As Long Dim i As Long Set MyDic = CreateObject("Scripting.Dictionary") Application.ScreenUpdating = False With ActiveSheet .Range("A1:D5,F1:I5,K1:O5").Interior.ColorIndex = xlNone For Each C In .Range("A1:D5,F1:I5,K1:O5") MyDic(C.Value) = MyDic(C.Value) + 1 Next x = MyDic.Keys For i = LBound(x) To UBound(x) MyKey = x(i) Select Case MyDic(x(i)) Case 7 MyColor = 7 Case 6 MyColor = 6 Case 5 MyColor = 5 Case 4 MyColor = 4 Case 3 MyColor = 3 Case 2 MyColor = 46 Case 1 MyColor = 35 Case Else MyColor = 8 End Select For Each C In .Range("A1:D5,F1:I5,K1:O5") If C.Value = MyKey Then C.Interior.ColorIndex = MyColor End If Next Next End With Application.ScreenUpdating = True Erase x Set MyDic = Nothing MsgBox "処理が完了しました。" End Sub >複数の検索範囲から同数値の連続数によってセルを色分けする #連続という言葉を取り違えた様です。失礼しました。 （SoulMan） ------------------------------------------------------------------ SoulManさん、私の説明不足だったようです。すいません。 3つの範囲を横に検索するのではなくて、縦に検索したいのです。 一部、横もありますが（色付け）、基本は縦検索です。 実際の表を貼り付けたいのですが、デカすぎて貼り付けできませんので下記に 例を記載します。 A B C D E F G H I J K +--+--+--+--+--+--+--+--+--+--+--+ 1 |1|2|3| |5|6|7| |8|9|10| 1の場合ですとA1,E2,I3,A4,(E4)で4連続 +--+--+--+--+--+--+--+--+--+--+--+ 2 |77|2|3| |1|6|7| |3|6|7| 2の場合ですとB1,B2,E3で3連続 +--+--+--+--+--+--+--+--+--+--+--+ 3 |99|43|65| |2|21|22| |1|9|10| 3の場合はC1,C2,I2ですが基本は縦に検索 +--+--+--+--+--+--+--+--+--+--+--+ するので、2連続となり対象外(色は付かない) 4 |1|4|12| |1|19|55| |8|9|10| +--+--+--+--+--+--+--+--+--+--+--+ 一部、横もあるというのは、上記の例でいいますと同じ行に同数値がある場合で 1は4連続ですが色を付けるのはA1,E2,I3,A4,E4の5箇所ということで、 5連続とは見なしません。基本は縦なので1は4連続となります。 お手数をおかけしますが、よろしくお願いいたします。(aki) ---- ＞コンパイルエラー””変数が定義されていません 一番上の行の Option Explicit の前に ' を入れてコメントアウトしてください。 または、Dim 連続数 As Longの下の行に Dim MyRange As Range, C As Range, R As Range Dim MyRowsCnt As Long, i As Long, MyCount As Long Dim MyColor As Long を追加してください。 （川野鮎太郎） ---- こんな時間に衝突するとは……（笑）（8/21 am6:44） 考えるのがめんどいので回答しない可能性大だけど気になった点だけ質問。 質問1 この上の表の場合で、例えば「9」に注目したとき、 J1,J3,J4に存在してますが、これは2連続と考えますか?それとも3連続ですか? もし2連続として考える場合、J1の「9」に色は付けますか?付けませんか? 質問2 実際の表のサイズはどれくらいの大きさなのですか? （何連続まで考慮するつもりでいますか?） 質問3 出現する文字は半角数値のみですか? その場合の範囲は最大2桁（0〜99の範囲）ですか? よほど時間があったら考えてみたいけど無理げ。 （ご近所PG） ---- どことどこに何色がついてどことどこに色がつかないのか教えてください。 （SoulMan） ---- あらあら・・・、おはようございます。 ご近所さんの質問の場合、私のコードは J1は単独の1個、J3,J4は連続の2個で色付けています。 もし単独のものは色を付けないのであれば、 MyColor = 7 '1個の場合:ピンク の 7 を 0 に変えるだけです。 （川野鮎太郎） ---- わんちゃんの散歩に行ってました。クンクンなくと落ち着いて考えられないのよね(^^; ところで、コードに説目を入れてみましたので動きと説目を読んでご自身の意図と違うところを教えてください。 Option Explicit Sub てすと() Dim MyDic As Object Dim MyA As Variant Dim C As Range Dim MyTbl As Range Dim x As Variant Dim MyColor As Long Dim TempC As Long Dim i As Long, j As Long Dim z As Variant 'ディクショナリを生成します。 Set MyDic = CreateObject("Scripting.Dictionary") '画面の更新を停止します。 Application.ScreenUpdating = False With ActiveSheet 'データ範囲をMyTblに取得します。 Set MyTbl = .Range("A1:O5") 'データをMyAに取得します。 MyA = MyTbl.Value 'MyTblの色を初期化します。 MyTbl.Interior.ColorIndex = xlNone 'ディクショナリで重複のないキーを取得します。 For Each C In MyTbl If Not IsEmpty(C.Value) Then MyDic(C.Value) = Empty End If Next '重複のないキーをxで受けます。 x = MyDic.Keys 'xの下限から上限までをループします。 For i = LBound(x) To UBound(x) '変数TempCを初期化します。 TempC = 0 '変数MyColorを初期化します。 MyColor = 0 'MyAの上限までループします。 For j = 1 To UBound(MyA, 1) 'MatchでMyAにあるか調べます。 With Application z = .Match(x(i), .Index(MyA, j, 0), 0) End With 'あったらMyColorをアップしていきます。 If Not IsError(z) Then MyColor = MyColor + 1 Else 'なかったら過去の連続数をTempCに代入してMyColorを初期化します。 If TempC < MyColor Or TempC = 0 Then TempC = MyColor End If MyColor = 0 End If Next '一番長い連続数を採用します。 If TempC < MyColor Then MyDic(x(i)) = MyColor Else MyDic(x(i)) = TempC End If Next 'キーの下限から上限までをループします。 For i = LBound(x) To UBound(x) '1以上つまり連続したのもだったら If MyDic(x(i)) > 1 Then '回数によって色を決定します。 Select Case MyDic(x(i)) Case 7 MyColor = 7 Case 6 MyColor = 34 Case 5 MyColor = 3 Case 4 MyColor = 5 Case 3 MyColor = 6 Case 2 MyColor = 4 Case Else MyColor = 8 End Select 'MyTblを変数Cでループします。 For Each C In MyTbl 'キーと同じだったら、決定された色をつけます。 If C.Value = x(i) Then C.Interior.ColorIndex = MyColor End If Next End If Next End With '画面の更新を解除します。 Application.ScreenUpdating = True '変数を初期化します。 Erase MyA, x Set MyDic = Nothing Set MyTbl = Nothing MsgBox "処理が完了しました。" End Sub http://ryusendo.no-ip.com/cgi-bin/upload/src/up0342.xls おぉ〜〜のぉ。・ﾟﾟ・(>_<)・ﾟﾟ・。65に色が付いたね。 こっちと差し替えてください。m(__)m （SoulMan） ------------------------------------------------------------------------------ SoulManさん、川野鮎太郎さん、ご近所PGさん、丁寧なご指導ありがとうございました。 ＞SoulManさん こちらのわがままな質問にタイムリーにお答えいただき誠にありがとうございました。 最後のご質問ですが、当方、VBAは初心者でコードの説目をみても正直、自分の意図 するものなのかどうか、わかりません。m(__)m 実行結果から言いますと、ほぼ、意図するものでありました。一箇所だけ意図する ものでは無かった点が表の数値で言いますと"68"と"3"（黄色になる部分）で どちらも2行目には存在しないのに1行目の"68"と"3"は黄色になる点でした。 （2行目で"68"と"3"は途切れているので1行目の"68"と"3"は単独扱いになる） 色々とお手数をおかけしありがとうございました。 ＞川野鮎太郎さん 修正版のほうは、意図するものでありました。 初心者に丁寧なご指導ありがとうございました。 ＞ご近所PGさん ご質問の答えですが 質問1…9は2連続でJ1には色はつきません。 質問2…表の検索範囲はQ3:Z26、AB3:AK26、AM3:AV26の3箇所で8連続まで考慮です。 質問3…文字は半角数値で最大3桁です。 皆さま本当にありがとうございました。 ---- これでどうでしょうか? Option Explicit Sub てすと() Dim MyDic As Object Dim MyA As Variant Dim MyB As Variant Dim MyC As Variant Dim MyAA As Range Dim MyBB As Range Dim MyCC As Range Dim C As Range Dim x As Variant Dim MyColor As Long Dim TempC As Long Dim i As Long, j As Long Dim z As Variant 'ディクショナリを生成します。 Set MyDic = CreateObject("Scripting.Dictionary") '画面の更新を停止します。 Application.ScreenUpdating = False With ActiveSheet '各データ範囲を取得します。 Set MyAA = .Range("A1:D5") Set MyBB = .Range("F1:I5") Set MyCC = .Range("K1:O5") 'データを配列に取得します。 MyA = MyAA.Value MyB = MyBB.Value MyC = MyCC.Value 'データ範囲の色を初期化します。 Union(MyAA, MyBB, MyCC).Interior.ColorIndex = xlNone 'ディクショナリで重複のないキーを取得します。 '三つの範囲を対象にしているのでMyAAだけをループします。 For Each C In MyAA If Not IsEmpty(C.Value) Then MyDic(C.Value) = Empty End If Next '重複のないキーをxに取得します。 x = MyDic.Keys 'xの下限から上限までをループします。 For i = LBound(x) To UBound(x) '変数TempCを初期化します。 TempC = 0 '変数MyColorを初期化します。 MyColor = 0 'MyAの上限までループします。 For j = 1 To UBound(MyA, 1) '先ずMyDDでMyAにあるか調べます。 If MyDD(MyA, x(i), j) Then 'あったらMyColorをアップしていきます。 MyColor = MyColor + 1 Else 'なかったらMyBにあるか調べます If MyDD(MyB, x(i), j) Then 'あったらMyColorをアップしていきます。 MyColor = MyColor + 1 Else 'なかったらMyCにあるか調べます If MyDD(MyC, x(i), j) Then 'あったらMyColorをアップしていきます。 MyColor = MyColor + 1 Else 'MyCにもなかったらそれまでの連続数をTempCに代入してMyColorを初期化します If TempC < MyColor Or TempC = 0 Then TempC = MyColor End If MyColor = 0 End If End If End If Next '結果、一番長い連続数を採用します。 If TempC < MyColor Then MyDic(x(i)) = MyColor Else MyDic(x(i)) = TempC End If Next 'キーの下限から上限までをループします。 For i = LBound(x) To UBound(x) '2以上つまり連続したのもだったら If MyDic(x(i)) > 2 Then '回数によって色を決定します。 Select Case MyDic(x(i)) Case 7 MyColor = 7 Case 6 MyColor = 4 Case 5 MyColor = 3 Case 4 MyColor = 5 Case 3 MyColor = 6 Case Else MyColor = 8 End Select 'データ範囲を変数Cでループします。 For Each C In Union(MyAA, MyBB, MyCC) 'キーと同じだったら、決定された色をつけます。 If C.Value = x(i) Then C.Interior.ColorIndex = MyColor End If Next End If Next End With '画面の更新を解除します。 Application.ScreenUpdating = True '変数を初期化します。 Erase MyA, MyB, MyC, x Set MyDic = Nothing Set MyAA = Nothing Set MyBB = Nothing Set MyCC = Nothing MsgBox "処理が完了しました。" End Sub Private Function MyDD(ByVal MyAry As Variant, _ ByVal MyKey As Variant, _ ByVal i As Long) As Boolean Dim z As Variant With Application z = .Match(MyKey, .Index(MyAry, i, 0), 0) End With If Not IsError(z) Then MyDD = True Else MyDD = False End If End Function この場合、最初のデータですと、1、2、3、68に色が付きました。 あっ、失礼!最初のには付いちゃいけないのね?? 今度、時間があるときにでも考えましょう。。では、退散します。m(__)m （SoulMan） ---- はっきり言って「まだやっとたんかぁ???」って話やけど・・・ ここをちゃんとしておかないといけないのよね(^^; 1行目の3と63 2行目の43に色が付かなくなりました。まぁ、もう解決されているのならいいですけどね。。 ではでは、、あぁぁぁ、、疲れたびぃ Option Explicit Sub てすと() Dim x As Variant Dim MyTbl As Range Dim MyRow As Range Dim C As Range Dim rr As Range Dim i As Long Dim k As Long '画面の更新を停止します。 Application.ScreenUpdating = False With ActiveSheet 'データ範囲をMyTblに取得します。 Set MyTbl = .Range("A1:O5") 'MyTblの色を初期化します。 MyTbl.Interior.ColorIndex = xlNone 'MyTblを変数Cでループします。 For Each C In MyTbl 'Cが空白じゃなくて色が決まっていなかったら（探索されていなかったら） If C.Value <> "" And C.Interior.ColorIndex = xlNone Then '変数rrとKを初期化します。 Set rr = Nothing: k = 0 'MyTblを行方向にループします。 For i = 1 To MyTbl.Rows.Count '行単位でMyRowに取得します。 Set MyRow = MyTbl.Offset(i - 1).Resize(1) 'MATCHであるか調べます。 x = Application.Match(C.Value, MyRow, 0) 'あったらkにプラス1して行を探索して収集します。 If Not IsError(x) Then k = k + 1 探索 C.Value, MyRow, rr Else 'なかったら（途切れたら） 'それまでの連続数が1より大きかったら色付けに範囲と回数を渡して色を付けます。 If Not rr Is Nothing And k > 1 Then 色付け rr, k '変数rrとkを初期化します。 Set rr = Nothing: k = 0 End If Next i '探索の結果、連続数が1より大きかったら色付けに範囲と回数を渡して色を付けます。 If Not rr Is Nothing And k > 1 Then 色付け rr, k End If Next End With '画面の更新を解除します。 Application.ScreenUpdating = True '変数を開放します。 Set MyTbl = Nothing Set MyRow = Nothing MsgBox "処理が完了しました。" End Sub Private Sub 探索(ByVal MyKey As String, ByVal MyRow As Range, ByRef r As Range) Dim C As Range For Each C In MyRow 'Cが空白じゃなくて色が決まっていなかったら（探索されていなかったら） If C.Value <> "" And C.Interior.ColorIndex = xlNone Then If C.Value = MyKey Then If Not r Is Nothing Then Set r = Union(r, C) Else Set r = C End If End If End If Next End Sub Private Sub 色付け(ByVal MyRng As Range, ByVal MyColor As Long) Select Case MyColor Case 7 MyColor = 7 Case 6 MyColor = 34 Case 5 MyColor = 3 Case 4 MyColor = 5 Case 3 MyColor = 6 Case 2 MyColor = 4 Case Else MyColor = 8 End Select MyRng.Interior.ColorIndex = MyColor End Sub （SoulMan）久しぶりに難産やったなぁ(^^; ---- 完璧です。本当にありごとうございました。m(__)m (aki) ---- おはようございます。 完璧とのお言葉を頂いた後に恐縮ですが、一夜明けて見直したら完璧じゃなかったです。(^^; ↓これが抜けてました。結果は変わりませんが、量が多くなると速度が違ってくると思います。 If C.Value <> "" And C.Interior.ColorIndex = xlNone Then というわけで、上のコードは説明を追加して修正しておきました。 重ね重ね誠に失礼しました。ではでは、、 （SoulMan）難しいね(^^;... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200508/20050819230520.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97060 documents and 608319 words.
訪問者：