ka_na_de の回答履歴

久しぶりに質問したいことがあります。 初歩的なVBA操作しかできない者です。 以下のようなマクロを組みたいのですがどのようにしたらよいでしょうか？ 　　　　　A 　　　　　 B　　　　　　　　　C 1　　　東京 2　　　東京 3　　　京都 4　　　京都 5　　　京都 6　　　埼玉 7　　　埼玉 ・　　　・ ・　　　・ ・　　　・ 上の状態から下のようにしたい 　　　　A　　　　　　　　B　　　　　　　　C 　　-------- 1 　　 東京 2 　　--------　 3 4　　京都 5　 　　-------- 6 　　 埼玉 7 　　-------- ・　　　・ ・　　　・ ・　　　・ （最終行は任意） B列で同じ項目名のセルを結合したいです。 B列は名前順に並び替えられていて、１～１０行ぐらいで同じ項目名があり行数は共に任意です。 なおイメージ図の「------」はセル結合のイメージですので、実際には 実践で囲います。 分かりづらし説明で申し訳ありませんがよろしくお願いします。

久しぶりに質問したいことがあります。 初歩的なVBA操作しかできない者です。 以下のようなマクロを組みたいのですがどのようにしたらよいでしょうか？ 　　　　　A 　　　　　 B　　　　　　　　　C 1　　　東京 2　　　東京 3　　　京都 4　　　京都 5　　　京都 6　　　埼玉 7　　　埼玉 ・　　　・ ・　　　・ ・　　　・ 上の状態から下のようにしたい 　　　　A　　　　　　　　B　　　　　　　　C 　　-------- 1 　　 東京 2 　　--------　 3 4　　京都 5　 　　-------- 6 　　 埼玉 7 　　-------- ・　　　・ ・　　　・ ・　　　・ （最終行は任意） B列で同じ項目名のセルを結合したいです。 B列は名前順に並び替えられていて、１～１０行ぐらいで同じ項目名があり行数は共に任意です。 なおイメージ図の「------」はセル結合のイメージですので、実際には 実践で囲います。 分かりづらし説明で申し訳ありませんがよろしくお願いします。

支払予定を作成しております。 タイトル行と合計行の間のデータを日付順にソートしております。 （マクロにて） 行を挿入した場合、下記の場合範囲を固定している為全データを ソート出来ません。 データ範囲の指定方法を教え下さい。 よろしくお願い致します。 Sub 並べ替え2() Range("A3:D18").Select Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal Range("A2").Select End Sub

Word VBAで、たとえば、 i = 10 MJ = "〔" + Str(i) + "〕" MsgBox MJ というプログラムを実行すると、〔 10〕のように表示され、なぜか、"〔"と数字の間に半角スペースが入ってしまいます。 これはなぜでしょうか。 半角スペースが入らないようにするには、どうすればいいのでしょうか。

オートフィルターで表示してある所だけを対象としてcountifで対象 値の数を出したいのでのですが できますでしょうか? Sub countif() Range("C1") = Application.WorksheetFunction.countif(Range("A:A").SpecialCells(xlCellTypeVisible), Range("B1")) End Sub イメージはこんな感じなのですがよろしくお願いします。

以下のような表があります。 No. 項目 ランク 備考 1 AAA 01 あああ 1 AAA 02 いいい 1 AAA 02 ううう 1 AAA 03 えええ 1 AAA 04 おおお 1 AAA 05 かかか 2 BBB 01 ききき 2 BBB 02 くくく 3 CCC 01 けけけ 項目に対してランクがありますが、ひとつの項目に対しランクは「01」「02」「03」「04」「05」しかあってはならないのに、「02」が重複しているものがあります。（例えば3行目は重複しているものとみなされます。備考は違ってもかまいません）） このような重複を省いてデータを抽出したいのです。 抽出の足がかり的なことでもかまいませんので、宜しくお願いいたします。

エクセル2003使用 　例とし、A1～A9の9箇所のセル（都度入力する箇所はこの範囲内で変わります）に　△□◎○×▽　の６個のいずれかの値（文字）を入れるのですが、この６個の文字が１つでも、もれていたら何らかのエラー表示（セルの色が変わるなど）をさせる事はできないものでしょうか？（可能なら６個の文字（△□◎○×▽）の何が不足してるかわかればなお良いのですが） 　条件付書式やマクロなどで対応できないでしょうか。よろしくお願いします。（△□◎○×▽は入力規則のリストから選択するようにしてあります）

横に長いデータがあり、その1つのセルを選択するとその行全体に色が付くようにしたいのです。過去の質問で以下のようなものを見つけましたが、問題はその場合、通常のコピー→貼り付けができない点です。 その辺を問題なく行える方法はないでしょうか？ よろしくお願いいたします。 Public m, n Private Sub Worksheet_SelectionChange(ByVal Target As Range) If m <> 0 Then Range(Cells(m, 1), Cells(m, 256)).Interior.ColorIndex = n End If m = Target.Row n = Target.Interior.ColorIndex Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 6 End Sub

横に長いデータがあり、その1つのセルを選択するとその行全体に色が付くようにしたいのです。過去の質問で以下のようなものを見つけましたが、問題はその場合、通常のコピー→貼り付けができない点です。 その辺を問題なく行える方法はないでしょうか？ よろしくお願いいたします。 Public m, n Private Sub Worksheet_SelectionChange(ByVal Target As Range) If m <> 0 Then Range(Cells(m, 1), Cells(m, 256)).Interior.ColorIndex = n End If m = Target.Row n = Target.Interior.ColorIndex Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 6 End Sub

横に長いデータがあり、その1つのセルを選択するとその行全体に色が付くようにしたいのです。過去の質問で以下のようなものを見つけましたが、問題はその場合、通常のコピー→貼り付けができない点です。 その辺を問題なく行える方法はないでしょうか？ よろしくお願いいたします。 Public m, n Private Sub Worksheet_SelectionChange(ByVal Target As Range) If m <> 0 Then Range(Cells(m, 1), Cells(m, 256)).Interior.ColorIndex = n End If m = Target.Row n = Target.Interior.ColorIndex Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 6 End Sub

横に長いデータがあり、その1つのセルを選択するとその行全体に色が付くようにしたいのです。過去の質問で以下のようなものを見つけましたが、問題はその場合、通常のコピー→貼り付けができない点です。 その辺を問題なく行える方法はないでしょうか？ よろしくお願いいたします。 Public m, n Private Sub Worksheet_SelectionChange(ByVal Target As Range) If m <> 0 Then Range(Cells(m, 1), Cells(m, 256)).Interior.ColorIndex = n End If m = Target.Row n = Target.Interior.ColorIndex Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 6 End Sub

横に長いデータがあり、その1つのセルを選択するとその行全体に色が付くようにしたいのです。過去の質問で以下のようなものを見つけましたが、問題はその場合、通常のコピー→貼り付けができない点です。 その辺を問題なく行える方法はないでしょうか？ よろしくお願いいたします。 Public m, n Private Sub Worksheet_SelectionChange(ByVal Target As Range) If m <> 0 Then Range(Cells(m, 1), Cells(m, 256)).Interior.ColorIndex = n End If m = Target.Row n = Target.Interior.ColorIndex Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 6 End Sub

エクセルでセル内の文字列の中の括弧内データのみ抽出したいのですが、 ご存知の方がいらっしゃいましたら、教えてください。 例えば aaa(bbb) cc(d) eeee(ff)gg など、括弧の位置が不規則のセルがいくつもある場合、 ↓ bbb d ff このように括弧内データだけを抽出して違うセルに貼り付けられないでしょうか。

エクセルでセル内の文字列の中の括弧内データのみ抽出したいのですが、 ご存知の方がいらっしゃいましたら、教えてください。 例えば aaa(bbb) cc(d) eeee(ff)gg など、括弧の位置が不規則のセルがいくつもある場合、 ↓ bbb d ff このように括弧内データだけを抽出して違うセルに貼り付けられないでしょうか。

エクセルでセル内の文字列の中の括弧内データのみ抽出したいのですが、 ご存知の方がいらっしゃいましたら、教えてください。 例えば aaa(bbb) cc(d) eeee(ff)gg など、括弧の位置が不規則のセルがいくつもある場合、 ↓ bbb d ff このように括弧内データだけを抽出して違うセルに貼り付けられないでしょうか。

ある範囲のセルの値全てに同一の関数を適応する方法は無いでしょうか？ 例えば、 A B C 1 あ い う とあった場合に、一度に function(あ)function(い)function(う) といった感じでできないでしょうか？

ある範囲のセルの値全てに同一の関数を適応する方法は無いでしょうか？ 例えば、 A B C 1 あ い う とあった場合に、一度に function(あ)function(い)function(う) といった感じでできないでしょうか？

エクセルでセル内の文字列の中の括弧内データのみ抽出したいのですが、 ご存知の方がいらっしゃいましたら、教えてください。 例えば aaa(bbb) cc(d) eeee(ff)gg など、括弧の位置が不規則のセルがいくつもある場合、 ↓ bbb d ff このように括弧内データだけを抽出して違うセルに貼り付けられないでしょうか。

エクセルを使っている者です。 エクセルを使って、文化祭のシフト表を作っているのですが、 その作業のなかで、セルを何色か使って塗りつぶし、色別に仕事内容を見やすくしました。（行：時間　列：人の名前） そこまではいいんですが、みな平等に仕事を割り当てるため、選択した範囲内で塗りつぶされたセルの個数を色別に数えたいのです。 どんな関数を使えばよいでしょうか？ 塗りつぶされたセルを、しかも色別にカウントする、そんな関数はあるのでしょうか？

くだらない質問ですみません。 空欄じゃないセルの個数をだすにはどのようにすれば いいですか？ 例：A1～A100の中で、空欄ではないセルの個数を求めるにはどのように 　書けばいいでしょうか？ =countif(A1:A100,○○）だとは思うんですが・・・ よろしくお願いします。