hige_082 の回答履歴

全1209件中101~120件表示
  • Excel データを各シートへ自動振り分け(各シート、元データと連動)

    こんばんは。 マクロもVBAもチンプンカンプンの私が、色々調べ挑戦したのですが・・・ 頭がパンク状態。 自分がやりたい事も上手く伝えられてるか、不安ですが宜しくお願いします。m(__)m <ファイルの状況> Excel2003使用 Sheet1  コードNo.+勘定科目が入力されているSheet Sheet2  全ての勘定科目のデータが入力されているSheet      ※新しい情報は、随時このSheetに入力 ◎勘定科目ごとのSheet数は、月(年)によって異なります <やりたい事> ※画像参照(見にくかったら、ごめんなさい) 1.「更新場所」のデータを勘定科目ごとに自動振り分けしたい。    ※Sheetごとに合計も出てると理想 2.「更新場所」に新しいデータを入力すると、振り分けられた各Sheetのデータも自動更新される。(元データと各Sheetが連動されてる。) <参考にしたサイト> 【A】 http://www4.ocn.ne.jp/~yy3/Sub61.html 【A】のサイトのプログラムを「ExcelのVisual Basic Editor」を開き貼り付け、「データを各シートに振り分ける」までは出来たのですが・・・ 振り分けられた各シートを見ると、合計が出てないんです。 それは単純に【A】のサイトのプログラムの中には、「各シートの合計値を求める」という 指示のプログラムが入っていないからだと考えました。(素人の考えです。) <やりたい事>の1の各Sheetで合計値を求める事と、<やりたい事>の2が出来ていないので、【A】のサイトのプログラムに・・・ 以下のプログラムを追加すると、私の目的にあったプログラムが出来る?と思ったのですが、出来ますでしょうか? 1.「振り分けられた各Sheetの合計値を求める」という指示 2.「更新場所に新しいデータを入力すると、振り分けられたSheet内のデータが自動更新」されるという指示 また、【A】のサイトを元に各Sheetに振り分けると、一番最後に「合計」というSheetが登場するのですが・・・ 「合計」のSheetを見ても#REFと表示されているだけで、なんの為にあるSheetなのか、よく分かりません。 「合計」のSheetを見るまでは考えていませんでしたが、「合計」のSheetに各Sheetの 勘定科目・支出・収入の合計金額が表示されると、とても理想的です。 マクロもVBAも全然分からないのに、要望だけ沢山あってすみませんが、宜しくお願いします。 P.S 【A】サイトより私の目的にあったプログラムがあったら、【A】サイトのプログラムにこだわる理由はありません。 色々調べてこれがいいのかな?と思っただけですので・・・ 宜しくお願い致します。

  • セルの移動で、お知恵をお貸しください。

    セルの移動で、お知恵をお貸しください。 A列に数字を入れるとB列のセルを数字の分だけ、右や上に移動させたいのですが、可能でしょうか。   A列 B列 C列    D列   E列    F列    1    関数   2    関数   5    関数   1    関数   3    関数 右に移動↓   A列 B列 C列    D列   E列    F列    1    関数   2         関数   5                         関数   1    関数   3              関数

  • ユーザーFrom内のTextBox色

    ユーザーFrom内のTextBox色 教えてください フォームにはTextBoxが60個ぐらい あります。 そこで、Fromを表示させたときに 空欄のTextBoxのみバックカラーを変えたいのですが どのような記述をすれば良いのでしょうか?教えてください。 Dim Cnt As Integer For Cnt = 60 To 125 If Me.Controls("TextBox" & Cnt).Text = "" Then Controls("TextBox" & Cnt).BackColor = RGB(204, 255, 255) End If ちなみこれだと空欄のTextBoxは変わらないです!!! Next

  • エクセルマクロ?

    いつもお世話になります 1、シート「日報」のA5からAAの5まで毎日入力をします 行数は毎日変わります それをコピーして シート「月間」に やはり A5からAA5まで 貼り付けたいんですが 2、シート「日報」は毎日 クリアーし常にA5からAA5です 2日目は、シート「日報」を入力した後、コピーして シート「月間」の最終行を検索してその下の行に貼り付けたいのです それを、毎日繰り返し、月間を完成したいです 3、シート「月間」の最終行を検索する際、エクセルのバージョンが 各店舗違うので、そのあたりも考慮していただきたいです マクロ超初心者です よろしくお願いいたします

  • コンテキストメニューのなくなったアドインが表示

    エクセル2007を使ってまもないですが。 コンテキストメニューに削除したはずのアドインが表示されます。 邪魔でしょうがありませんので、どなたか表示を消す方法をお教え下さい。

  • エクセルVBAについて質問です。初心者です。

    エクセルVBAについて質問です。初心者です。 ユーザーフォームにリストボックスとコマンドボタンを1つずつ配置しています。  A列 B列 りんご 1 みかん 2 (りんご、みかん、1、2を太い罫線で四角に囲んでいます)    リストボックスには「りんご」と「みかん」が入っていて、りんごを選びコマンドボタンを押すと、「りんご」と「1」のセルが消去され、上方向にセルをずらすようにしています。 「みかん」を選びコマンドボタンを押すと「みかん」と「2」のセルが消えるのですが、そのとき「みかん」と「2」のセルの下段に引いている罫線まで消えてしまうのです。これを阻止する方法を教えていただけないでしょうか。 以下はコードです。 Private Sub CommandButton1_Click() Range("A1").Offset(ListBox1.ListIndex).Delete Shift:=xlUp Range("A1").Offset(ListBox1.ListIndex, 1).Delete Shift:=xlUp Unload UserForm1 End Sub おそらくこれに 「もし消去対象のセルが最終行のセルであれば With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With これを行いなさい」という感じのコードを作ればいいと思うのですが、『もし消去対象のセルが最終行のセルであれば』の部分がうまく作れません…。 なおA列、B列の文字・値はどんどん増えていく可能性があるので最終行を使っています。 よろしくお願いします。

  • コンテキストメニューのなくなったアドインが表示

    エクセル2007を使ってまもないですが。 コンテキストメニューに削除したはずのアドインが表示されます。 邪魔でしょうがありませんので、どなたか表示を消す方法をお教え下さい。

  • エクセルでVLOOKUPを使って長文を表記する場合、文字を折り返して表

    エクセルでVLOOKUPを使って長文を表記する場合、文字を折り返して表記できますか? 文章が短い物と長い物があります。 セルの幅は変えたくないので長文は折り返して表記したいです。 元のセルを折り返して表記するにチェックを入れても表記されないです。 何か方法は無いでしょうか?

  • リストから抽出

    前回こちらで質問させていただいたのですが、説明不足だったので再度質問として補足を加えました。回答をいただいた方には申し訳ありませんが再度確認をお願い出来ませんでしょうか? リストには番号、産地、品物、数量といった感じで横に並んでいます。 番号    産地    品物      数量  0001    北海道   豚桃      3 0002    大阪     サンマ黒    5 0003    鹿児島    豚 TB黒F   2 0004    長崎     牛黒F      9 0005    大分     牛無色      1 問題になるのが品物の項目で様々な色や品目があり、 同じ豚でもタイプが違って豚、豚 TBというようにスペースが空いてたりします。 色も同様に黒、黒Fといった感じで他にも無色、例外ものがあったります。 これらを考慮しつつ下記の図のように抽出させてその後の作業に続くマクロを作りたいと思っています。 番号    産地    品物      色      数量  0001    北海道   豚       桃       3 0002    大阪     サンマ     黒       5 0003    鹿児島    豚 TB     黒F       2 0004    長崎      牛       黒F       9 0005    大分      牛       無色      1 条件に豚、豚 TB、サンマ、牛を指定してその後に続く文字を色に持ってこさせるか もしくは他の方法で効率のいいやり方があればマクロで教えて頂けませんでしょうか? 急ぎではありませんので宜しくお願い致します。

  • VBAで配列のNULL判定

    VBAで下記のように配列に設定したNULL値を判定しようとしました。 Dim str() ReDim Preserve str(2) str(0) = "aaa" str(1) = Null str(2) = "bbb" 以下(1)、(2)の分岐処理ではNullと判定されませんでした。 どのように判定すれば良いでしょうか? (1) If str(1) = Null Then Debug.Print "Null値です" End If (2) If str(1) = "" Then Debug.Print "Null値です" End If

  • エクセルVBA初心者です。

    エクセルVBA初心者です。 ユーザーフォームを使ったセルの上書きについて質問があります。(以下は自分が作成済みの内容)   A  B  りんご 1  みかん 2 これらがセルにあります。この中から上書きしたいものを取得します。 ユーザーフォーム1にリストボックスとコマンドボタンを1つずつ設置し、そのリストボックスにA列の文字を入れました。リストボックスの中から上書きしたい文字を選択し、コマンドボタンを押すと、ユーザーフォーム2が表れ、そこには2つのテキストボックスと1つのコマンドボタンがあります。 ここからが分からないのですが、例えば上書きしたい文字に「みかん」を選び、ユーザーフォーム2のテキストボックス1に「バナナ」、テキストボックス2に「3」といれると   A  B  りんご 1  バナナ 3 このようにしたいのです。 実際はもっと複雑な内容のものを作成しております。しかし上記の疑問が解決すれば、今自分が抱えている問題も解決すると思います。 以下はユーザーフォーム1のコードです。これを提示することにより回答される方が楽になるかどうかは分かりませんが、一応提示しておきます。(lstRowを使っている理由はA列とB列の文字・値が増加していく可能性があるため) Private Sub UserForm_Initialize() CommandButton1.Enabled = False    Dim lstRow As Long    Dim i As Long    Dim q As Long ListBox1.Clear ListBox1.ColumnCount = 2 ListBox1.ColumnWidths = "200 pt"    lstRow = Cells(Rows.Count, 1).End(xlUp).Row q = 0      For i = 2 To lstRow With ListBox1 .AddItem .List(q, 0) = Cells(i, "C").Value End With q = q + 1 Next End Sub ============================================================================ Private Sub CommandButton1_Click() UserForm2.TextBox1.Value = Me.ListBox1.Value Unload UserForm1 UserForm2.Show End Sub

  • 【マクロ】全シートでまとめて実行するには?

    教えてください。マクロは初心者です。 ↑先ほど、http://oshiete1.goo.ne.jp/qa5695407.html で、ある親切な方に以下のマクロを教えて頂きましたが、私がその時にまとめて聞くのを忘れてしまい、改めて教えていただきたく思います。 ------------------------------------------------ Sub test()  Dim R As Long  For R = 1 To Cells(Rows.Count, "B").End(xlUp).Row    If Cells(R, "B").Value = "土" Or CellsR, "B").Value "日" Then      Cells(R, "A").Resize(1, 5).Interior.ColorIndex = 6    End If  Next R End Sub ---------------------------------------------------- 上記のマクロを1シートでなく、全シートでまとめて実行したいのですが(どのシートも同様の内容なので)、どうすればいいのかわかりません。 どの個所にどんなコードを入れればよいのでしょうか? よろしくお願いします。 【XP、2003】

  • 【マクロ】全シートでまとめて実行するには?

    教えてください。マクロは初心者です。 ↑先ほど、http://oshiete1.goo.ne.jp/qa5695407.html で、ある親切な方に以下のマクロを教えて頂きましたが、私がその時にまとめて聞くのを忘れてしまい、改めて教えていただきたく思います。 ------------------------------------------------ Sub test()  Dim R As Long  For R = 1 To Cells(Rows.Count, "B").End(xlUp).Row    If Cells(R, "B").Value = "土" Or CellsR, "B").Value "日" Then      Cells(R, "A").Resize(1, 5).Interior.ColorIndex = 6    End If  Next R End Sub ---------------------------------------------------- 上記のマクロを1シートでなく、全シートでまとめて実行したいのですが(どのシートも同様の内容なので)、どうすればいいのかわかりません。 どの個所にどんなコードを入れればよいのでしょうか? よろしくお願いします。 【XP、2003】

  • (Excel VBA)困っています・・・orz

    エクセルを使うとある業務でマクロを組み、最適化を図ろうと試みているのですが 気がつけば高度な領域に突入していまして、僕みたいなレベルじゃ全然???な状況になってしまいました。 まず A列の1行目から任意の行に(10行までしかなかったり、1000行まであったりとランダムにあるとする)、任意の文字列(ABCなど)があるとします。 それからオートフィルタを使い、A列からある任意の文字列(ABCなど)を検索条件にしてデータを抽出します。 抽出されたデータベースのA列には検索条件にある「ABC」が任意の行まであり、その抽出されたデーターベースのD列に今度は「XYZ」とという文字列を 抽出された分の最終行まで割り振る・・・ つまりA列《ABC》で検索され抽出されたデータのD列には《XYZ》が自動に入力される もし、検索条件(ABC)で抽出されたデータが「0」件だった場合は、D列には何もせず、次の検索条件に進む・・・ というものをマクロで組みたいのですがどうやったらよいのでしょうか?? 何卒、ご教授お願い致します。

  • VBA初心者です。A1からA11にデータがあります。画面のテキストボッ

    VBA初心者です。A1からA11にデータがあります。画面のテキストボックスに例えば、山と入力し、ボタンをクリックする度、その文字を含むセルに色をつけようとしています。山を含むデータが3個あれば3回ボタンをクリックしないと終了しないというわけです。 データに山の文字を含むセルが複数あった時、下のプログラムでは1回ボタンをクリックした時、色が付きます。2回目以降は(1)でエラーです。 山と言う文字がA3、A6、A9にあれば、1回目はA3を検索、2回目以降はA4から検索しA6で着色、3回目はA7から検索してA9で着色、最後の行までいけばデータは以上、というメッセージを表示ということです。 プログラムは検索部分だけ記載しています。 'データ領域、最終行取得 Worksheets("Sheet1").Activate Range(Cells(2, 1), Cells(maxRow, 1)).CurrentRegion.Select If flag = False Then Set c = Worksheets("Sheet1").Range(Cells(2, 1), Cells(maxRow, 1)).CurrentRegion.Find(What:=myKey, LookIn:=xlValues, lookat:=xlPart, SearchOrder:=xlByColumns) c.Interior.ColorIndex = 4 flag = True Else (1) Set d = Worksheets("Sheet1").Range(Cells(2, 1), Cells(maxRow, 1)).CurrentRegion.FindNext(c) d.Interior.ColorIndex = 4 End If flagは Option Explicit Dim flag As Boolean で宣言。flagは、 Private Sub UserForm_Click() flag = False End Sub でフォームロード時にfalseとします。 Flagはテキストボックスに入力した文字をクリアするボタンをクリックした時再びfalseに設定します。 Flagがfalseの時は1度目の検索。2度目以降はTrue。やりたいことは、 1,1度目の検索のセルのアドレスをどこかに保存し、2回目以降のボタンのクリック(Flagがtrue時)はそのセルの次のセルから検索を行う。 2,2回目以降ヒットしたセルの次のセルから検索する。 3,データの最後のセルまで検索した時、メッセージで、"検索終了"といった表示を出す。 (1)はわからないので不完全のプログラムのまま記載しています。特に、1回目の検索したセルのアドレスをどう取得し、Range(Cells(2, 1), Cells(maxRow, 1))に代入すればよいのかわかりません。 Flagをたてるというのはいいアイデアに思ったのですが・・・ (1)前後のプログラムででどうやれば、1回目の検索時(Flagがfalseの時)のセルのアドレスを取得し、2回目以降のボタンのクリック時まで保存し、(1)に代入していけばよいのかわかりません。 ここまではナントカできたのですが・・・お助けください、よろしくお願いします。

  • オートフィルの自動化について

    EXCELでB4からB列に値がある分、A列にオートフィルを実行 させたいのですが、 Selection.AutoFill Destinationで明確に記載すれば できるのですが、何か他に方法はありませんでしょうか。 A4 B4 1 データ    データ    データ 上記でA5以降マクロでオートフィルを実行させる処理を やりたいのですが.. 知ってる方いましたら教えてください

  • 1フォルダに「A.xls」、「B.xls」、「C.xls」・・・とある

    1フォルダに「A.xls」、「B.xls」、「C.xls」・・・とある場合、 すべてのファイルに一斉にA1セルに「a」という文字を反映させる場合の VBAプログラムを教えていただけますでしょうか? よろしくお願いいたします。

  • マクロについて

    初めて投稿します。 最近、マクロを初めて全くの初心者です。 一応わからない事はネットで検索してたりしていますが 自分が求めているようなプログラミングは可能かどうか皆にお尋ねします。 リストにこういったものが記載されています。 地産    品物  数量  鹿児島   鶏v    1 東京     鶏v2     3 北海道   鶏b    7 これを下の図にマクロで自動的に作成させるようにしたいです。 地産    品物  種類  数量  鹿児島   鶏    v    1 東京     鶏   v2     3 北海道   鶏    b    7 種類によってv、v2、bとあるように文字数が違ってきてそれを抽出する為に 条件を用いてプログラミングすることは可能でしょうか? 関数などで抽出は一応出来ますが、この他にも作業を含んでおり 1から最後までマクロで完了させたいと思っております。 急ぎではありませんので、宜しくお願い致します。

  • エクセルのセルの長さが可変のデータに、それぞれ一番上のデータの名前を定

    エクセルのセルの長さが可変のデータに、それぞれ一番上のデータの名前を定義するにはどうしたらいいんでしょうか? 先日ここの質問で解決し ↓こういうデータを作成することができました。    A列   B列   C列   D列    1 MM銀行 NN銀行 LL銀行 OO銀行 2 PP支店 SS支店 UU支店 VV支店 3 QQ支店 TT支店        WW本店 4 RR支店              XX支店 5                    YY支店 このデータを使用して入力規則のリストを使用したいので、名前の定義を使用し、 「A1」から「D5」を範囲選択し、まとめて「上端」を名前として設定する処理を行いました。 そうするとA列とB列とC列の何も入っていないところにも名前が設定されていると思うんですが、 リストを設定したところの選択肢にスペースのセルもすべて表示されてしまいます。 1列1列名前を付けていけばいいのですが、何十列もあるため処理に時間がかかってしまいます。 それぞれの銀行の支店の数も違いますし、銀行数自体増える可能性があるので それぞれの列の行数も増減しますし、列のデータも増減します。 ひとつの列の最後の行を見に行くマクロはわかるのですが、 列の最後も同時に見に行くとなると、考えてみてもわかりませんでした。 マクロは人が書いたものを、調べていって理解できる程度です。 今までもこのサイトの過去のものを見て勉強させていただきました。 今回もインターネットで調べまわったのですが、よくわかりませんでした。 よければ、どうしたらいいのか教えていただきたいと思っています。 よろしくお願いします。

  • VBE、ユーザーフォームに関して質問があります。VBAを知って1カ月に

    VBE、ユーザーフォームに関して質問があります。VBAを知って1カ月に満たない初心者です。 ユーザーフォームでテキストボックスとコマンドボタンを1つずつ作りました。コマンドボタンを押すとテキストボックスに入れた文字・値がセルB1に入力されるようにしました。続けてテキストボックスに文字・値を入力し、コマンドボタンを押すとB2に入力されるようにしています。 ここからが質問なのですが、 コマンドボタンを押したときにA1に番号を順にふり、さらにセルを罫線で囲みたいのです。図で示すと、  A   B        A   B  _ ___      _ ___  |1|りんご| ⇒ |1|りんご|  - ---      - ---               |2|みかん|                - ---   このような感じです。また、外枠のみを太線にするということが可能であればその方法も教えて下さい。