pkh4989 の回答履歴

いつもお世話になります。 さて標記の件、データの中に全角文字が入っているかどうかの判定をしたいと思っています。 過去の質問からクエリでLen(文字列)<>LanB(文字列)を作ってみたんですが、半角文字しかないのにLanBに倍の数字が入ります。 office2000だからだと思いますが何か方法が在りませんでしょうか。 WinXP Office2000PROを使用しています。 以上、宜しくお願いいたします。

ExcelVBAで、任意のセル範囲内に含まれる(完全に含まれる、一部が含まれるは問題視していません)結合セルのコレクションの取得って出来るのでしょうか？やっぱり、RangeのEachループで、MergeAreaの戻り値を検証するしかないのでしょうか？SpecialCellsメソッドみたいなので無いのでしょうか？宜しくお願いします。 例：Range("A1:"K30")のセル範囲を選択している状態で、その範囲内にRange("B2:C4")、Range("E9:F12)、Range("H16:H20")のセル範囲が結合状態にある場合にその結合されているセル範囲を取得したいのですが！！

windowsＸＰ　　Ｅｘｃｅｌ2000　でマクロを作成している超初心者です。 あるサイトの暦で日付を入力するマクロですが、１枚のシートに 1）と　2）を併記して実験したところ正常に表示できました。 2）をシングルクリックで表示したいのですができません。なぜでしょうか？ 2）はいかにも稚拙です。もっと整理したいのですが方法が分かりません。以上２点よろしくご指導ください。 -------------------------------------------------------------------- １）シングルクリックで UserForm1を正常に起動できました。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'シングルクリックで表示 Cancel = True 'プロシージャ終了後に表示されるショートカットメニューの非表示 If Target.Row > 22 And Target.Column > 2 And Target.Column < 4 Then UserForm1.Show End If If Target.Row > 22 And Target.Column > 13 And Target.Column < 15 Then UserForm1.Show End If End Sub ------------------------------------------------------------------------- 2）ダブルクリックでしか正常に表示されません。 'Private Sub Worksheet_SelectionChange(ByVal Target As Range)’　起動しない Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '起動した Cancel = True 'プロシージャ終了後に表示されるショートカットメニューの非表示 If Target.Row > 23 And Target.Column > 1 And Target.Column < 3 Then Call ShowCalendarFromRange2(Target) End If If Target.Row > 23 And Target.Column > 12 And Target.Column < 14 Then Call ShowCalendarFromRange2(Target) End If If Target.Row > 12 And Target.Row < 21 And Target.Column > 12 And Target.Column < 14 Then Call ShowCalendarFromRange2(Target) End If If Target.Row > 12 And Target.Row < 21 And Target.Column > 14 And Target.Column < 16 Then Call ShowCalendarFromRange2(Target) End If If Target.Row > 12 And Target.Row < 21 And Target.Column > 16 And Target.Column < 18 Then Call ShowCalendarFromRange2(Target) End If If Target.Row > 12 And Target.Row < 21 And Target.Column > 18 And Target.Column < 20 Then Call ShowCalendarFromRange2(Target) End If End Sub ----------------------------------------------------------------------- 3）'これがサイトにあった例で、これを元に上のスクリプトを作りました。 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' 複数セル選択時は無視 ' If Target.Count <> 1 Then Exit Sub ' A列以外は無視(今回サンプルの例) ' If Target.Column <> 1 Then Exit Sub ' カレンダーフォームを起動する ' Call ShowCalendarFromRange2(Target) 'End Sub ---------------------------------------------------------------

特定セルから２９右までを範囲選択→切り取り→50個右に移動して貼り付け 毎回A列が先頭にあるのですが、どこのA列になるかは、データによってまちまちになってしまうため、自分自身でそこを選択してからマクロ実行をしようと考えてます。

僕は仕事上、韓国の聯合ニュースや統一ニュース、朝鮮日報を閲覧しています。 しかし、ここ数日急にこの３つのサイトが閲覧できなくなりました。 他のオーマイニュースなどは閲覧できるんですが、この３つのサイトだけが閲覧できません。 URLを確認したところ、間違ったところはありませんでした。 勝手に何か制限をかけてしまったのかもわかりません。 OSはXP、IEは７を使ってます。 どなたかこの問題の解決の方法をご存知の方がいらっしゃれば、アドバイスをお願いします。

僕は仕事上、韓国の聯合ニュースや統一ニュース、朝鮮日報を閲覧しています。 しかし、ここ数日急にこの３つのサイトが閲覧できなくなりました。 他のオーマイニュースなどは閲覧できるんですが、この３つのサイトだけが閲覧できません。 URLを確認したところ、間違ったところはありませんでした。 勝手に何か制限をかけてしまったのかもわかりません。 OSはXP、IEは７を使ってます。 どなたかこの問題の解決の方法をご存知の方がいらっしゃれば、アドバイスをお願いします。

僕は仕事上、韓国の聯合ニュースや統一ニュース、朝鮮日報を閲覧しています。 しかし、ここ数日急にこの３つのサイトが閲覧できなくなりました。 他のオーマイニュースなどは閲覧できるんですが、この３つのサイトだけが閲覧できません。 URLを確認したところ、間違ったところはありませんでした。 勝手に何か制限をかけてしまったのかもわかりません。 OSはXP、IEは７を使ってます。 どなたかこの問題の解決の方法をご存知の方がいらっしゃれば、アドバイスをお願いします。

はじめまして。 マクロ初心者です。 Excelのセルを使って地方別の日本地図を作成しています。 イメージとしてはこれのExcel版といった感じです。 http://hp-sozai.net/tm-map/nt03.html やりたいことは、別表の数字によってこの地方を色分けするマクロの作成です。 現在抱えている問題は、1.色の設定方法の改善、2.条件の設定方法の改善、3.現在のマクロの記述方法をシンプルにできないか、の3点です。 マクロは現在下記のように記述しています。 Sub 地方() Hokkaido = Range("T4").Value Select Case Hokkaido Case "" Range("P4").Interior.Color = QBColor(15) Case 1 To 4999 Range("P4").Interior.Color = QBColor(11) Case 5000 To 9999 Range("P4").Interior.Color = QBColor(9) Case 10000 To 14999 Range("P4").Interior.Color = QBColor(2) Case 15000 To 19999 Range("P4").Interior.Color = QBColor(10) Case 20000 To 24999 Range("P4").Interior.Color = QBColor(14) Case 25000 To 29999 Range("P4").Interior.Color = QBColor(13) Case 30000 To 34999 Range("P4").Interior.Color = QBColor(12) End Select Tohoku = Range("T5").Value Select Case Tohoku Case 1 To 4999 Range("O8,O9,P7:P10").Interior.Color = QBColor(11) Case 5000 To 9999 Range("P4").Interior.Color = QBColor(9) Case 10000 To 14999 Range("P4").Interior.Color = QBColor(2) Case 15000 To 19999 Range("P4").Interior.Color = QBColor(10) Case 20000 To 24999 Range("P4").Interior.Color = QBColor(14) Case 25000 To 29999 Range("P4").Interior.Color = QBColor(13) Case 30000 To 34999 Range("P4").Interior.Color = QBColor(12) End Select ・ ・ ・ （こを全地方分） End Sub 1.色の設定方法の改善と2.条件の設定方法の改善について： 現在それぞれの地方ごとにセルA1:B7に凡例を作成しています。 凡例はセルAにフォントの色指定で着色した■、 セルBに0以上5000未満などの条件を入力してあります。 例： A　　B ■　1以上5000未満 色は上記の通りマクロで直接指定していて、この■の色を変更してもマクロの色は変わりません。 これをリンクさせて、■の色が変更されたらマクロにも反映されるようにしたいと思っています。 条件についても同様で、Bの値が変わったらマクロの値も変わるように設定できたらいいのですが。。 3.現在のマクロの記述方法をシンプルにできないか、について： 見ての通り、今のマクロは同じ事を地方ごとに記述していて非常に長いものになっています。 これをもう少しシンプルに記述できないかと思っているのですが、 セルの範囲も地方によってさまざまなので上手いループが思いつかず行き詰まっています。 是非アイディアをいただけるとありがたいです。 どうぞよろしくお願いいたします。

エクセルで質問です。どなたかご教授ください…。 既にセルに入力された数式に、マクロでＩＦ関数を一発追加することは可能でしょうか？ ＝Ｂ６＊１０ という数式が入力されているセルを、ボタンひとつで ＝IF(Ｂ６＝０，””　，Ｂ６＊１０） という具合にしたいのです。 相対参照でどのセルにでも効くマクロ、もしあれば教えてください。

はじめまして。 マクロ初心者です。 Excelのセルを使って地方別の日本地図を作成しています。 イメージとしてはこれのExcel版といった感じです。 http://hp-sozai.net/tm-map/nt03.html やりたいことは、別表の数字によってこの地方を色分けするマクロの作成です。 現在抱えている問題は、1.色の設定方法の改善、2.条件の設定方法の改善、3.現在のマクロの記述方法をシンプルにできないか、の3点です。 マクロは現在下記のように記述しています。 Sub 地方() Hokkaido = Range("T4").Value Select Case Hokkaido Case "" Range("P4").Interior.Color = QBColor(15) Case 1 To 4999 Range("P4").Interior.Color = QBColor(11) Case 5000 To 9999 Range("P4").Interior.Color = QBColor(9) Case 10000 To 14999 Range("P4").Interior.Color = QBColor(2) Case 15000 To 19999 Range("P4").Interior.Color = QBColor(10) Case 20000 To 24999 Range("P4").Interior.Color = QBColor(14) Case 25000 To 29999 Range("P4").Interior.Color = QBColor(13) Case 30000 To 34999 Range("P4").Interior.Color = QBColor(12) End Select Tohoku = Range("T5").Value Select Case Tohoku Case 1 To 4999 Range("O8,O9,P7:P10").Interior.Color = QBColor(11) Case 5000 To 9999 Range("P4").Interior.Color = QBColor(9) Case 10000 To 14999 Range("P4").Interior.Color = QBColor(2) Case 15000 To 19999 Range("P4").Interior.Color = QBColor(10) Case 20000 To 24999 Range("P4").Interior.Color = QBColor(14) Case 25000 To 29999 Range("P4").Interior.Color = QBColor(13) Case 30000 To 34999 Range("P4").Interior.Color = QBColor(12) End Select ・ ・ ・ （こを全地方分） End Sub 1.色の設定方法の改善と2.条件の設定方法の改善について： 現在それぞれの地方ごとにセルA1:B7に凡例を作成しています。 凡例はセルAにフォントの色指定で着色した■、 セルBに0以上5000未満などの条件を入力してあります。 例： A　　B ■　1以上5000未満 色は上記の通りマクロで直接指定していて、この■の色を変更してもマクロの色は変わりません。 これをリンクさせて、■の色が変更されたらマクロにも反映されるようにしたいと思っています。 条件についても同様で、Bの値が変わったらマクロの値も変わるように設定できたらいいのですが。。 3.現在のマクロの記述方法をシンプルにできないか、について： 見ての通り、今のマクロは同じ事を地方ごとに記述していて非常に長いものになっています。 これをもう少しシンプルに記述できないかと思っているのですが、 セルの範囲も地方によってさまざまなので上手いループが思いつかず行き詰まっています。 是非アイディアをいただけるとありがたいです。 どうぞよろしくお願いいたします。

テーブルA 年齢,人数 20,15 21,11 22,26 .... 30,5 31,88 ... 60,5 上記テーブルAからのSQLで下記のデータが欲しいと思っております。 【欲しい結果】 年齢範囲,人数 20～24,50 25～29,33 30～34,199 ... ただし、 select '20～24'as 年齢範囲,count(*)as 人数 from テーブルA where 条件1 union select '25～29'as 年齢範囲,count(*)as 人数 from テーブルA where 条件2 union select '30～34'as 年齢範囲,count(*)as 人数 from テーブルA where 条件3 ... というSQLは使いたくないです。(テーブルAの記述が長めなので、同じものを複数記述したくないのです) また結果が 項目名：20～24,25～29,30～34,... レコード：50,33,199,... というのも遠慮したいです。 CASE文やsum、groupを使えば、できそうな気がするのですが、、、 ご教授お願い致します。

テーブルA 年齢,人数 20,15 21,11 22,26 .... 30,5 31,88 ... 60,5 上記テーブルAからのSQLで下記のデータが欲しいと思っております。 【欲しい結果】 年齢範囲,人数 20～24,50 25～29,33 30～34,199 ... ただし、 select '20～24'as 年齢範囲,count(*)as 人数 from テーブルA where 条件1 union select '25～29'as 年齢範囲,count(*)as 人数 from テーブルA where 条件2 union select '30～34'as 年齢範囲,count(*)as 人数 from テーブルA where 条件3 ... というSQLは使いたくないです。(テーブルAの記述が長めなので、同じものを複数記述したくないのです) また結果が 項目名：20～24,25～29,30～34,... レコード：50,33,199,... というのも遠慮したいです。 CASE文やsum、groupを使えば、できそうな気がするのですが、、、 ご教授お願い致します。

エクセルでチェックボックスの件ですが、 右クリックで『フォーム』で、コントロール書式設定→プロパティ→オブジェクトの位置関係の『セルに合わせて移動やサイズ変更する』という所が、薄いグレーになって、チェックが入りません。 どこをどうしたら、チェックが入るようになるのでしょうか？ 教えて下さい。 例　　□　ある　　□　なし　 　　　↑　　　　　　　　　　　 チェックは入ります。でも全体的にサイズを大きくしたいのです。

エクセルでチェックボックスの件ですが、 右クリックで『フォーム』で、コントロール書式設定→プロパティ→オブジェクトの位置関係の『セルに合わせて移動やサイズ変更する』という所が、薄いグレーになって、チェックが入りません。 どこをどうしたら、チェックが入るようになるのでしょうか？ 教えて下さい。 例　　□　ある　　□　なし　 　　　↑　　　　　　　　　　　 チェックは入ります。でも全体的にサイズを大きくしたいのです。

エクセルでチェックボックスの件ですが、 右クリックで『フォーム』で、コントロール書式設定→プロパティ→オブジェクトの位置関係の『セルに合わせて移動やサイズ変更する』という所が、薄いグレーになって、チェックが入りません。 どこをどうしたら、チェックが入るようになるのでしょうか？ 教えて下さい。 例　　□　ある　　□　なし　 　　　↑　　　　　　　　　　　 チェックは入ります。でも全体的にサイズを大きくしたいのです。

シート1　　A　　　　B　　　C 　　　　1　コード　コード　金額 　　　　2　01 シート2　　A　　　　B　　　C　　　D　　　E 　　　　1　コード　名前　コード　名前　金額 　　　　2　01　　　　あ　　02　　　い　　20 　　　　3　01　　　　あ　　03　　　う　　30 シート1とシート2があります。シート1のA2に入力されたコードがシート2のA列に入力されていたら、その行のC列のコードをシート1のB2に反映し、E列の金額をシート1のC2に反映する。シート1のA2のコードは、シート2のA列に複数あるため、この作業を繰り返す。 シート1　A　　B　　　C 　1　コード　コード　金額　 　2　01　　　02　　　20 　3　01　　　03　　　30とできるようにするにはどうすればいいでしょうか？分かりにくい文章で申し訳ありません。関数では無理なのでVBAの入力しかないかと考えていますが、VBAは全くの初心者で困っています。どなたかご回答宜しくお願いいたします。 　　

シート1　　A　　　　B　　　C 　　　　1　コード　コード　金額 　　　　2　01 シート2　　A　　　　B　　　C　　　D　　　E 　　　　1　コード　名前　コード　名前　金額 　　　　2　01　　　　あ　　02　　　い　　20 　　　　3　01　　　　あ　　03　　　う　　30 シート1とシート2があります。シート1のA2に入力されたコードがシート2のA列に入力されていたら、その行のC列のコードをシート1のB2に反映し、E列の金額をシート1のC2に反映する。シート1のA2のコードは、シート2のA列に複数あるため、この作業を繰り返す。 シート1　A　　B　　　C 　1　コード　コード　金額　 　2　01　　　02　　　20 　3　01　　　03　　　30とできるようにするにはどうすればいいでしょうか？分かりにくい文章で申し訳ありません。関数では無理なのでVBAの入力しかないかと考えていますが、VBAは全くの初心者で困っています。どなたかご回答宜しくお願いいたします。 　　

シート1　　A　　　　B　　　C 　　　　1　コード　コード　金額 　　　　2　01 シート2　　A　　　　B　　　C　　　D　　　E 　　　　1　コード　名前　コード　名前　金額 　　　　2　01　　　　あ　　02　　　い　　20 　　　　3　01　　　　あ　　03　　　う　　30 シート1とシート2があります。シート1のA2に入力されたコードがシート2のA列に入力されていたら、その行のC列のコードをシート1のB2に反映し、E列の金額をシート1のC2に反映する。シート1のA2のコードは、シート2のA列に複数あるため、この作業を繰り返す。 シート1　A　　B　　　C 　1　コード　コード　金額　 　2　01　　　02　　　20 　3　01　　　03　　　30とできるようにするにはどうすればいいでしょうか？分かりにくい文章で申し訳ありません。関数では無理なのでVBAの入力しかないかと考えていますが、VBAは全くの初心者で困っています。どなたかご回答宜しくお願いいたします。 　　

エクセルのマクロを使い初めの初心者です。 セルに入れた関数をユーザーが消したりしないために、マクロで関数の入ったセルにロックがかかった状態でファイルを開くようにしているのですが、マクロを無効にしてファイルを開くと、ロックがかかっていない状態になってしまいます。 マクロを無効にすると読み取り専用でファイルが開くような処理は可能でしょうか？ よろしくお願いします。

シート1　　A　　　　B　　　C 　　　　1　コード　コード　金額 　　　　2　01 シート2　　A　　　　B　　　C　　　D　　　E 　　　　1　コード　名前　コード　名前　金額 　　　　2　01　　　　あ　　02　　　い　　20 　　　　3　01　　　　あ　　03　　　う　　30 シート1とシート2があります。シート1のA2に入力されたコードがシート2のA列に入力されていたら、その行のC列のコードをシート1のB2に反映し、E列の金額をシート1のC2に反映する。シート1のA2のコードは、シート2のA列に複数あるため、この作業を繰り返す。 シート1　A　　B　　　C 　1　コード　コード　金額　 　2　01　　　02　　　20 　3　01　　　03　　　30とできるようにするにはどうすればいいでしょうか？分かりにくい文章で申し訳ありません。関数では無理なのでVBAの入力しかないかと考えていますが、VBAは全くの初心者で困っています。どなたかご回答宜しくお願いいたします。