ka_na_de の回答履歴

パソコン初心者です。エクセル９７で当番表を作成しました。列に仕事名、行に名前（漢字）を入力しました。毎月、役割当番を変更したいのですが、ランダムに並べ替えをする方法がわかりません。どうかよろしくお願いします。

お世話になります。 　Excel(2000)で、特定の文字列を含むセルが何個あるかを調べる関数を知りたいのです。具体的に申しますと、 　　　Ａ　　　　　　Ｂ　　　　　　　Ｃ　　　　　Ｄ　 １　取引日時　　　取引相手　　　　入金額　　　出金額　 ２------------------------------------------------- ３　2007/8/1　　　有)安藤商店　　　 34,000 ４　2007/8/1　　　株)伊藤商事　　　　　　　　100,000 ５　2007/8/2　　　有)安藤商店　　　 75,000 ６　2007/8/5　　　有)安藤商店　　　 10,500 ７　2007/8/6　　　株)上野興業　　　515,000 ８　2007/8/7　　　有)安藤商店　　　200,300 エクセルで上記のように「入出金記録(Sheet1)」入力することでを、「入金記録(Sheet2)」には 　　　　Ａ　　　　　　Ｂ　　　　　　　Ｃ １　有)安藤商店　　　　　4　　　　　309,300 ２　株)上野興業　　　　　1　　　　　515,000 　このように表示されるようにしたいのです。 　当月(この例では８月)に、トータルで全取引企業様から何件の入金取引があったかは、上記の例でいけば「=COUNT(入出金記録!C3:入出金記録!C65535)とでもしておけば、安藤商店・上野興業から計５件の入金があったことを計算してくれますが、安藤商店のみで何件・いくらの入金があったかといった、個別の企業で何件・何円の入金(出金)があったかを調べたいのです。 　EXCELのヘルプなどを参照しましたが、わたしの力ではどうすれば良いのか解りかねましたので、質問させていただきました。 　どうか良いお知恵を拝借したいと存じます。 　よろしくお願いいたします。

パソコン初心者です。エクセル９７で当番表を作成しました。列に仕事名、行に名前（漢字）を入力しました。毎月、役割当番を変更したいのですが、ランダムに並べ替えをする方法がわかりません。どうかよろしくお願いします。

パソコン初心者です。エクセル９７で当番表を作成しました。列に仕事名、行に名前（漢字）を入力しました。毎月、役割当番を変更したいのですが、ランダムに並べ替えをする方法がわかりません。どうかよろしくお願いします。

初めまして。よくわからないまま使い続けている初心者です。 検索する業務が多く、その度[編集]-[検索]（Ctrl＋F）で検索窓を開いて対象となる数字列を入力し検索を行うのですが、この操作（[編集]-[検索]（Ctrl＋F））をしないままブックを開いたと同時に検索窓を表示させ続けることはできるのでしょうか？あるいは、マクロでシート内に検索ボタン（押すと検索窓が開く）を作ることは可能でしょうか？ よろしくご教授くださるようお願いいたします

マクロ初心者です。宜しくお願いします。 エクセルで一つのSheet1があります。そのSheet1には、一覧表があります。マクロを実行することで、Sheet1の後ろにSheet2を作成して、Sheet1と同じ一覧表をコピーして表示できるようにし、それを、マクロを実行すれば、ワークシートが一枚追加され、Sheet2のシート名になり、シートを追加する度にシート名が、Sheet3、Sheet4、Sheet5となるようにしたいです。 分かりづらい説明ですが、宜しくお願いします。

マクロ初心者です。宜しくお願いします。 エクセルで一つのSheet1があります。そのSheet1には、一覧表があります。マクロを実行することで、Sheet1の後ろにSheet2を作成して、Sheet1と同じ一覧表をコピーして表示できるようにし、それを、マクロを実行すれば、ワークシートが一枚追加され、Sheet2のシート名になり、シートを追加する度にシート名が、Sheet3、Sheet4、Sheet5となるようにしたいです。 分かりづらい説明ですが、宜しくお願いします。

excel2003を使用しております。 生年月日を下記のように入力しております。 　A　　　 B　　　　C　　　 D 01　｜　月　｜　23　｜　日 10　｜　月　｜　01　｜　日 06　｜　月　｜　03　｜　日 ・　　｜　・　｜　　・ 　｜　・ ・　　｜　・　｜　　・ 　｜　・ ・　　｜　・　｜　　・ 　｜　・ 上のように現在、月日が4桁表記になっていますが、 例えば、『06月01日』という表記を『6月1日』と訂正したく、 不要な頭の『0』を取りたいのです。 何かよい関数はありますでしょうか？ 教えてください。宜しくお願い致します。

エクセルの質問です。 文字列「Ａ」と「Ｂ」を検索して個数が知りたいのですが、文字列「Ａ,Ｂ」というデータの優先されるのがＡであった場合、Ａ＝1個。Ｂ＝0個とカウントしたいのです。何か良い数式はありませんか？

パソコン初心者です。エクセル９７で当番表を作成しました。列に仕事名、行に名前（漢字）を入力しました。毎月、役割当番を変更したいのですが、ランダムに並べ替えをする方法がわかりません。どうかよろしくお願いします。

パソコン初心者です。エクセル９７で当番表を作成しました。列に仕事名、行に名前（漢字）を入力しました。毎月、役割当番を変更したいのですが、ランダムに並べ替えをする方法がわかりません。どうかよろしくお願いします。

パソコン初心者です。エクセル９７で当番表を作成しました。列に仕事名、行に名前（漢字）を入力しました。毎月、役割当番を変更したいのですが、ランダムに並べ替えをする方法がわかりません。どうかよろしくお願いします。

パソコン初心者です。エクセル９７で当番表を作成しました。列に仕事名、行に名前（漢字）を入力しました。毎月、役割当番を変更したいのですが、ランダムに並べ替えをする方法がわかりません。どうかよろしくお願いします。

パソコン初心者です。エクセル９７で当番表を作成しました。列に仕事名、行に名前（漢字）を入力しました。毎月、役割当番を変更したいのですが、ランダムに並べ替えをする方法がわかりません。どうかよろしくお願いします。

こんにちは、 EXCEL　VBA　を勉強しております。 そこでDIM、REDIM　関数とはどんな物でしょうか？ 又英語の略ならば何の略でしょうか？

こんにちは、 EXCEL　VBA　を勉強しております。 そこでDIM、REDIM　関数とはどんな物でしょうか？ 又英語の略ならば何の略でしょうか？

基本使用量が８以下の場合は1620円のみですが、 基本使用量が８以上の場合、超過分として、使用料に応じて計算が変わってくる条件分岐をＩＦ関数で考えています。 基本使用量８～３０まで→（今月使用料－８）×160円 　　　　　３１～５０まで→（今月使用料－８）×220円 　　　　　５１～→（今月使用料－８）×330円 こういったものを、基本使用料金と、従量料金と別項目として 表示させたい場合、どのような関数を書けばよいか教えてください。 お願いします。

エクセルの表で、 　 Ａ　Ｂ　Ｃ 1 ○　０ 2 ○　０ 3 ○　０ 4 ▲　０ 5 ▲　５ 6 □　２ 7 □　３ 8 □　４ のような表があり、Ａ列の○や▲の項目をベースにして、 『同じ項目でＢ列が０だけのもの、０と０以上の数字が入っているもの、０以上の数字だけのもの』を分けたい、もしくはＣ列に印を付けたいのですが、できないでしょうか？ ピボットで試しましたが、数字を合計していまいます（合計したくない）。 少し分かりにくいかも知れませんが、お願いします。

エクセルの質問です。 文字列「Ａ」と「Ｂ」を検索して個数が知りたいのですが、文字列「Ａ,Ｂ」というデータの優先されるのがＡであった場合、Ａ＝1個。Ｂ＝0個とカウントしたいのです。何か良い数式はありませんか？

初心者なりに、色々参考にさせてもらいながらエクセル・ＶＢＡで、 顧客データと業者コードに入力した数字や文字列を 顧客Noを入力すると請求書に表示される、というＶＢＡを作ったのですが、顧客データの並び順が表に反映されてしまいます、 （例えば顧客NoがNo5だと請求書10行目から順に表示したいのに、13行目に表示されてしまいます。No4だと12行目、No3だと11行目という風に・・） ws1の、顧客データは、10行目から順に1行ずつ下がって入力したいけど、 ws2の、業者コードの情報は3行目のまま固定して表示したいのです。 こんな場合どうすればいいでしょうか・・？ 説明足りなければ申し訳ありません。。 下に、自分で作ったＶＢＡ張っておきます。↓ 　　Sub 請求書作成() Dim getstr As String Dim msg As String Dim title As String Dim irange As Integer Dim iirange As Integer 　Set ws1 = Worksheets("顧客データ") 　Set ws2 = Worksheets("業者コード") 　Set ws6 = Worksheets("▲請求書▲") msg = "顧客ＮＯ.を入力してください" title = "ＮＯ.入力" getstr = InputBox(msg, title) getstr = UCase(getstr) 　　irange = Int(getstr) + 4 　　iirange = Int(getstr) + 8 　ws6.Range("a4") = ws1.Range("g" & irange) 　ws6.Range("d3") = ws1.Range("j" & irange) EndRow = Cells(ws6.Rows.Count, 8).End(xlUp).Row 　ws6.Range("c" & iirange) = ws1.Range("l" & irange) 　ws6.Range("f" & iirange) = ws1.Range("c" & irange) 　ws6.Range("n" & iirange) = ws1.Range("bf" & irange) 　ws6.Range("v" & iirange) = ws1.Range("dh" & irange) 　ws6.Range("ab" & iirange) = ws1.Range("ac" & irange) 　ws6.Range("aw" & iirange) = ws1.Range("dz" & irange) 　ws6.Range("ah" & iirange) = ws2.Range("l" & irange + 2) End sub