turuzou の回答履歴

こんにちわ。VBA初心者ですが、よろしくお願いします。 下記のような表からの値の取得（値の走査）の処理を考えているのですが、どうも1つ1つのセルを比較して取得するやり方しか考えつかなくて、マクロの実行時間が長くなってしまいます。。。 A列　　B列　　 C列　　　D列 関東　千葉県　千葉市　中央区 関東　東京都　　　　　　　渋谷区 関東　　　　　　　横浜市 東北　福島県　福島市 関西　　　　　　　　　　　　　伏見区 北陸　　　　　　　新潟市 （A列にはエリア、B列には県、C列には市、D列には区が設定されてます。） 入力値がB,C,D列に全て一致した行のA列を返却させたいと思っています。 例えば、神奈川県横浜市港北区と入力した場合、関東を返して欲しいです。 ただし、空白のセルの箇所は見ない（何でも構わない）ため、 東京都新潟市中央区と入力した場合は北陸を返して欲しいのです。 私が思いつくのは、県を比較して、一致or空白なら次の列（市の比較）へ行き、不一致なら次の行で同じ処理を行うやり方しか思いつきません・・・ 1つ1つの比較以外に何かやり方はございますでしょうか？ ExcelのFind関数などの利用も考えたのですが、空白の場合にうまく動かないので。。。 宜しければアドバイスをお願いします。

Excel VBAで以下のようなことをしたいです。 C列に作業日が入っています。 date(today)を条件に C列で該当するセルが あればフォントの色を変えて強調させようと考えています。 それ以外は黒字フォントのままで固定です。 単独のセルだけを対象にするとうまくいので おそらく、行全体の値を取得しなければならないと 思うのですが　forをつかってuboundを使っても うまくいきません。どなたかご意見をください 以下　うまくいかないコードですが のせています。　 *********************** range("A1") = date set 選択範囲 = columns(C) if 選択範囲 = range("A1") then end if

EXCELにて2つの特定の文字列が含まれる行を残して削除したいと思っております。 A列50行にそれぞれ"年賀状""喪中""名刺"がランダムに羅列されていて、その中から"年賀状"と"喪中"の行だけを残して"名刺"の行は削除したいと思ってます。(B列以降は注文番号、枚数、氏名等が入力されています） 以下のコードで1つだけは可能でしたが、色々試しても2つはできませんでした。（コードは拾い物を少しアレンジ） Sub MacroTest1() 　　Dim keyWord As Variant 　　Dim FirstAdd As String 　　Dim UR As Range 　　Dim c As Range 　　Const col As Long = 1 '列数 　　keyWord = "年賀状" 　　If VarType(keyWord) = vbBoolean Or Len(keyWord) = 0 Then Exit Sub 　　 　　With ActiveSheet 　　　　With .UsedRange 　　　　　　Set c = .Find( _ 　　　　　　What:="*" & keyWord & "*", _ 　　　　　　LookIn:=xlValues, _ 　　　　　　LookAt:=xlPart, _ 　　　　　　SearchOrder:=xlByRows) 　　　　　　 　　　　　　If Not c Is Nothing Then 　　　　　　　　FirstAdd = c.Address 　　　　　　　　Set UR = c 　　　　　　　　Do 　　　　　　　　　　Set c = .FindNext(c) 　　　　　　　　　　Set UR = Union(UR, c) 　　　　　　　　　　If c.Address = FirstAdd Then Exit Do 　　　　　　　　Loop Until c Is Nothing 　　　　　　End If 　　　　End With 　　　　If Not UR Is Nothing Then 　　　　　　UR.EntireRow.Hidden = True 　　　　　　.UsedRange.SpecialCells(xlCellTypeVisible).Delete 　　　　　　.UsedRange.EntireRow.Hidden = False 　　　　End If 　　End With End Sub どうか宜しくお願いします。

とあるイベントで 来客者の人数を調べたいと思いました。 紙に正の字を書いていってもいいのですが 折角なので、後のグラフをつくったりする作業がやりやすいように PCで処理しようと思いました。 しかし、いちいち数をけして打ちなおしていくのは あまりにも面倒です・・・ 街灯の人数調査（？）の人がもってる カウントできる機械のようなものも持っていませんし・・・ 例えばマクロを使用し ボタンを押すとセル内の数が１足されるように 設定したいのですがどうすればよいでしょう？ もしくは、そういったことは可能でしょうか。 ワンクリック（もしくはそれに準ずる簡単さ）で カウントがとれればマクロでなくても構わないです。 Excelあまりいじったことがないので 教えていただければ幸いです。 また、マクロでそういったことができないのであれば Excel以外でもカウントをとることができるものがあれば 合わせて教えていただけると嬉しいです。 よろしくおねがいします。

エクセル２００３で１９００年以前の早見表を作りたいのですが 関数では１９００年以降はできますが、１９００年以前の作り方を 教えてください。

はじめまして。 EXCELでhistory.csvというファイルを読み込んで指定列をコピーし 貼り付けるマクロを作って使用しています。 そのcsvファイルはどんどん更新されて行が増えていきます。 できればコピーする前に、下から10行目までを削除した後に コピペしたいのですが、下から10行目までというような行の指定方法は あるのでしょうか。 上級者の方々、アドバイスをいただけないでしょうか。 よろしくお願いします。

宜しくお願いします。 エクセルの関数で結果が空白の時『0』と表示させ、次のシートの計算に反映させたいのですが、空白の為計算できないようです。よい方法を教えてください。 セルに入っている式は IF(ISNA(VLOOKUP(A1,○○!$A$1:$F$50,5,0)),"0",(VLOOKUP(A1,○○!$A$1:$F$50,5,0)) この式が一行に3箇所入っており、一つに数字が入ると残りの2つのセルは空白になってしまいます。 一つのセルに数字がはいったら、残りのセルに『0』と表示させたいのです。 どうぞ宜しくお願い致します。

現在、EXCELで会社の注文書を作成しています。合計金額が入力されると同時に合計金額入力して日を発行日として表示したいのですが、その発行日が次の日になると変わってしまいます。良い方法はないでしょうか？日付が入るセルには以下の関数を入れています。 =IF(C15,TODAY()," ") できれば関数で教えてください。よろしく　お願いします。

データ整理で困っております。 皆様のお知恵を拝借したくお願いいたします。 EXCELシートで次のようなデータがあります。 　　A　B　C　D　E　F　G　H　I　J　K 1　１ あ　い 2　 う　え 3　 お か 4　 き　く 5　 け　こ 列はA,B,Cのみにデータがあります。 行は1～5にあります。 A1は連番で数字があります。 この５行のデータが４００近くあります。（約2,000行） このシートが１０ほど存在します。 これらのシートを次のように１行に変換したいのです。 　 A B C D E F G H I J K 1　1　あ　い　う　え　お　か　き　く　け　こ 2　 3　 4　 5　 行2～5はブランクのままでもかまいません。 何卒よろしくお願いいたします。

データ整理で困っております。 皆様のお知恵を拝借したくお願いいたします。 EXCELシートで次のようなデータがあります。 　　A　B　C　D　E　F　G　H　I　J　K 1　１ あ　い 2　 う　え 3　 お か 4　 き　く 5　 け　こ 列はA,B,Cのみにデータがあります。 行は1～5にあります。 A1は連番で数字があります。 この５行のデータが４００近くあります。（約2,000行） このシートが１０ほど存在します。 これらのシートを次のように１行に変換したいのです。 　 A B C D E F G H I J K 1　1　あ　い　う　え　お　か　き　く　け　こ 2　 3　 4　 5　 行2～5はブランクのままでもかまいません。 何卒よろしくお願いいたします。

こんにちは。 カテゴリー違いなら申し訳ありません・・。その際はご指摘いただければと思います。 マクロの超初心者ですが、会社での業務効率UPのために以下のようなマクロを組もうと必死になっています・・・。 アドバイスを頂ければ幸いです<( _ _ )>。(なんかもう丸聞きみたいなもので大変申し訳ないのですが；) ややこしいですが、宜しくお願い致します。 <A列>　　　　<B列>　　　　<C列> 　□　　　　ファイル　　フラット 　□　　　　ファイル　　クリア 　□　　　　筆記　　　　ボールペン 　□　　　　整理　　　　クリップ(大) 　↑ チェックボックス 上記のような表(実際は数百行)を元にしています。 この表を、 例)フラットファイルにチェックをつけ、隣のシートの指定セルに反映させてコピーしたい！ (1)B列でオートフィルタをかけ、ファイルの行を抽出 (2)抽出した行の中からフラットの行を選択(A列のチェックボックスをクリック) (3)1,2を繰り返し、チェックボックスにチェックのついたものだけを隣のシートの指定セルに反映させる。 　　B列・・・D1セル　C列・・・D2セル 上記のような流れにしたいのですが、自分がするとオートフィルタをかけた時点でチェックボックスがいっぱい重なってしまい、とてもごちゃごちゃした感じになってしまいます。 (色々なHPを見ていたのですが、右クリックするだけでチェックボックスが現れてチェックが入るというものもありました。 理想はこちらだったのですが・・・技術的にとても無理で理解できず断念してしまいました)。 少し長文になってしまいましたが、どうぞ宜しくお願い致します。

こんばんは！ 明日仕事で使う為に、昨晩から色々試してるのですが 知恵をかして頂ければと思いますm(__)m エクセルのブックに sheet1と複数の請求書のsheetか存在します。 sheet1は請求書に必要な情報が入ってます。（データベースのようなものです） 　会社名(1)　　商品名(1)　商品名(2)　商品金額(1)　商品金額(2) 1　○○商事　りんご　　　みかん　　　　200　　　　100 2　○○会社　りんご　　　みかん　　　　250　　　　150 請求書は、取引先独自の請求書が100種類くらいあります。 なので、書式は様々です。 しかし、記載する内容は同じものなので、 例えば、請求書に　会社名(1)と入っていたら（○○商事）　　 　　　　　　　　　商品コード(1)と入っていたら（りんご） 　　　　　　　　　商品金額(1)と入っていたら（200）などと 置換していく方法はないでしょうか？ 商品の種類も3種類しかないので、右に項目を作ってます。 ただ請求書の種類が多いもので・・・ 途中まで数式を組んだりマクロの記録で試したのですが VLOOKUPの数式が残ってしまったり、 次の会社に進んでくれなかったりで ＶＢＡの知識が乏しく調べてもわかりませんでした。 私もまだ調べながら作りますので もしおわかりになる方いらっしゃいましたらよろしくお願いいたします。

A-1（商品名1（A）） A-2（商品名2（B）） A-3（商品名3（C）） ・ ・ ・ ・ となったリストがあります。 このリストから 商品名1（A） 商品名2（B） 商品名3（C） ・ ・ ・ ・ といったリストを作りたいのですが、いちいち打ち直すしかないでしょうか？ 前後の（　）も不要なのですが置き換えで削除してしまうと 商品名（A）の（　）まで削除されてしまいます。 このリスト、数百行に及ぶもので困っています。 なにかいい方法はないでしょうか？

お世話になります。 エクセル関数は中級ですがVBAは全く超が付く初心者の者です。 この度会社でエクセル使用による業務見直しを任ぜられ 本を購入したり過去の質問回答をみながら VBAの勉強を始めたのですが、 この景気で急遽業務見直し達成日が繰り上げられて 勉強している場合ではなくなってしまい、 皆様のお力をお借りしたく質問させていただく次第です。 １．エクセルのVBAを用いて 設定したボタンをクリックすれば その開いているエクセルブックを丸ごと複写して 新たなエクセルブックを任意の場所に設けることが出来るようにしたい ２．その際に複写元となるブックのSheet１の A1のセルに入力した文字や数字が新たに設けたブックの 名前に自動的になるように設定したい 上記2点の設定をしたいのですが、どうしても辿り着けません。 何卒ご指導をお願い申し上げます。

お世話になります。 エクセル関数は中級ですがVBAは全く超が付く初心者の者です。 この度会社でエクセル使用による業務見直しを任ぜられ 本を購入したり過去の質問回答をみながら VBAの勉強を始めたのですが、 この景気で急遽業務見直し達成日が繰り上げられて 勉強している場合ではなくなってしまい、 皆様のお力をお借りしたく質問させていただく次第です。 １．エクセルのVBAを用いて 設定したボタンをクリックすれば その開いているエクセルブックを丸ごと複写して 新たなエクセルブックを任意の場所に設けることが出来るようにしたい ２．その際に複写元となるブックのSheet１の A1のセルに入力した文字や数字が新たに設けたブックの 名前に自動的になるように設定したい 上記2点の設定をしたいのですが、どうしても辿り着けません。 何卒ご指導をお願い申し上げます。

ブック間で同じようなデータ（A列に番号とB列に名前）が入力されているのですが、1つのデータは更新されて、番号と名前が増えています。1つは、おくれたままなのですが、この2つのブックで誰が抜けているのかを調べたいのです。=Countif(A:A,[Book2.xls]社員一覧!$A1)としたところ異なった名前は１で空白セルのみが0になってしまいます。 2つのブックを比較したい場合はどうすればよいのでしょうか。 宜しくお願い致します。

Excel2000でシート上にボタンを作成し、クリックひとつで参照したいsheetをひらきたいのですが。100項目ぐらいあるので、いちいちsheetを探すのが大変なのでなにかよい方法、命令等あれば教えてください。　　クリックひとつで参照したいbookを開くというのは本に載っていたのですが（マクロでWorkbooks.Open命令）。このやり方だと開きたい項目が100ぐらいあるので、100もファイルを作らなければなりません。同じファイル内で最初のsheet上にボタンを作成し、クリックすればその項目のsheetを開くことができるということはできないでしょうか。 ちなみに仕事での電子化を目的としています。よろしくおねがいします。

Excelのcountif関数の対象範囲に指定するシート指定名に、他セルに記入した文字列を使いたいのですが、うまくいきません。 例えば、Ｘシートの$A$1:$A$20の範囲内の”出席”文字列数を別シート上で計算させたいのですが、ストレートにやれば、 　　　=countif(`Xシート`!$A$1:$A$20, "出席"）　　　 となります。 これを、Ａ１セルで、Ｘシート という文字列を記述した上で、別セルにて、 　　　=countif(A1!$A$1:$A$20,"出席") のように記述したいのです。indirect関数はうまくいきませんでした。どなたか、ご教授をお願いします。

いつもお世話になっております。 あるものの使用状況をEXCELで当日の量から前日の量を引いて管理しているのですが入力ミスが時々あります。計算結果にミスがあった場合エラーメッセージを出し入力をはじくようにしたいのですが方法を教えて下さい。 例　A1～Z1　500～1000以内ならOK 　　 A2～Z2　1500～2000以内ならOK などのように列より管理範囲が違います。 よろしくお願いします。

いつもお世話になっております。 あるものの使用状況をEXCELで当日の量から前日の量を引いて管理しているのですが入力ミスが時々あります。計算結果にミスがあった場合エラーメッセージを出し入力をはじくようにしたいのですが方法を教えて下さい。 例　A1～Z1　500～1000以内ならOK 　　 A2～Z2　1500～2000以内ならOK などのように列より管理範囲が違います。 よろしくお願いします。