yk3291のプロフィール

@yk3291 yk3291
ありがとう数109
質問数36
回答数10
ベストアンサー数
2
ベストアンサー率
66%
お礼率
50%

  • 登録日2006/09/08
  • ユーザーフォームを表示されないようにしたい

    Vista excel2007 でマクロ作成中の超初心者です。 Ａ、Ｂ、Ｃのブックがあります。Ｂブックのみマクロをワークシートに貼り付けています。 1）Ａブック（マクロ記録用）の中にある、Ａコマンドボタンを押すと 　ＢブックのＢシートにジャンプします。ジャンプと同時に、Ｂユーザーフォームを 表示しています。 2）そしてＢシートには、フォームコントロールを貼り付けており、ここをクリックするとＣブックＣシートに飛びます。 3）ところが、ＣシートにはＢユーザーフォームが残ったままです。このフォームを 　表示されないようにしたいのです。 4）Ｂシートのフォームコントロールには、次のコード記述をしてあります。 　　 　　 Sub Ｃブック　Ｃシートへ() Dim wb As Workbook Dim ws As Worksheet Dim sh As Worksheet Dim i As Long ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path On Error Resume Next '開いて作業中の場合。 Set wb = Workbooks("ＣＣＣ.xls") On Error GoTo 0 If wb Is Nothing Then Set wb = Workbooks.Open(ThisWorkbook.Path & "\ＣＣＣ.xls") End If Worksheets(1).Select End Sub どうかよろしくお願いします。　

    • aitaine
    • 回答数2
  • ユーザーフォームを表示されないようにしたい

    Vista excel2007 でマクロ作成中の超初心者です。 Ａ、Ｂ、Ｃのブックがあります。Ｂブックのみマクロをワークシートに貼り付けています。 1）Ａブック（マクロ記録用）の中にある、Ａコマンドボタンを押すと 　ＢブックのＢシートにジャンプします。ジャンプと同時に、Ｂユーザーフォームを 表示しています。 2）そしてＢシートには、フォームコントロールを貼り付けており、ここをクリックするとＣブックＣシートに飛びます。 3）ところが、ＣシートにはＢユーザーフォームが残ったままです。このフォームを 　表示されないようにしたいのです。 4）Ｂシートのフォームコントロールには、次のコード記述をしてあります。 　　 　　 Sub Ｃブック　Ｃシートへ() Dim wb As Workbook Dim ws As Worksheet Dim sh As Worksheet Dim i As Long ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path On Error Resume Next '開いて作業中の場合。 Set wb = Workbooks("ＣＣＣ.xls") On Error GoTo 0 If wb Is Nothing Then Set wb = Workbooks.Open(ThisWorkbook.Path & "\ＣＣＣ.xls") End If Worksheets(1).Select End Sub どうかよろしくお願いします。　

    • aitaine
    • 回答数2
  • A列に同じ文字列があればB列値を合算することは可能ですか

    エクセルで次のような事を行う事は可能でしょうか、毎月、同じことを行っているので、良い案があればぜひ教えて下さい。 列A 列B (株)A商事 20 (株)B社 10 DSS社 50 (株)B社 40 (株)A商事 30 と言うデータベースがあるとします。 列Aにある会社名の中で同じ会社があれば合計して列C、列Dに表示する事はかのうでしょうか？ 結果としてこのように求めたいのです。 列A 列B 列C 列D (株)A商事 20 (株)A商事 70 (株)B社 10 (株)B社 50 C商事(株) 15 C商事(株) 15 (株)A商事 20 DSS社 50 (株)A商事 30 DSS社 50 (株)B社 40 非常に膨大な数があり困っています。よろしくお願いいたします。

  • A列に同じ文字列があればB列値を合算することは可能ですか

    エクセルで次のような事を行う事は可能でしょうか、毎月、同じことを行っているので、良い案があればぜひ教えて下さい。 列A 列B (株)A商事 20 (株)B社 10 DSS社 50 (株)B社 40 (株)A商事 30 と言うデータベースがあるとします。 列Aにある会社名の中で同じ会社があれば合計して列C、列Dに表示する事はかのうでしょうか？ 結果としてこのように求めたいのです。 列A 列B 列C 列D (株)A商事 20 (株)A商事 70 (株)B社 10 (株)B社 50 C商事(株) 15 C商事(株) 15 (株)A商事 20 DSS社 50 (株)A商事 30 DSS社 50 (株)B社 40 非常に膨大な数があり困っています。よろしくお願いいたします。

  • エクセルでこんな事できませんか？

    関数に関して全くの素人です。お力を借りたいのですが、 まず仮にセルA1にXX1と記入してセルA1にXX2,A3にXX3とセルA100まで記入しておき、セルB1にZZZ1と記入しBの列に同じ文字が記入された時セルC列にお互いのセルA列の文字を記入したいのですが,只３回目の時はD列に記入し若い番号から順番に入れていきたいのですが、仮にA1行 ZZZ1 XX10 A10行 ZZZ1 XX1 XX12 A12行 ZZZ1 XX10 A10行が2箇所でD列使用となります。、説明が下手ですが、判ってもらえるかなぁ？関数でもVBAでもいいのですが、VBAについてもド素人です。よろしくお願いします。

もっと見る