ka_na_de の回答履歴

指定した範囲内で最大値及び最小値のセル番地を取得するには、 どうコーディングしたらよろしいでしょうか？ 対象範囲　A1：Z2000の各行（行番は変数で処理） 例えば、 ---------------------------------------------------- For x = 1 To 2000 Range(A列のx行目:A列のx行目)の最大値　→　B列 　　　　　　　　　　　　　　　最小値　→　Y列 Next x ---------------------------------------------------- このように、2000行分同じことを繰り返し、それぞれの行内での 最大値及び最小値を含むセルの列名を取得し、 B列のx行目を赤（最大値） Y列のx行目を青（最小値） に着色したいのです。 よろしくお願いします。

指定した範囲内で最大値及び最小値のセル番地を取得するには、 どうコーディングしたらよろしいでしょうか？ 対象範囲　A1：Z2000の各行（行番は変数で処理） 例えば、 ---------------------------------------------------- For x = 1 To 2000 Range(A列のx行目:A列のx行目)の最大値　→　B列 　　　　　　　　　　　　　　　最小値　→　Y列 Next x ---------------------------------------------------- このように、2000行分同じことを繰り返し、それぞれの行内での 最大値及び最小値を含むセルの列名を取得し、 B列のx行目を赤（最大値） Y列のx行目を青（最小値） に着色したいのです。 よろしくお願いします。

指定した範囲内で最大値及び最小値のセル番地を取得するには、 どうコーディングしたらよろしいでしょうか？ 対象範囲　A1：Z2000の各行（行番は変数で処理） 例えば、 ---------------------------------------------------- For x = 1 To 2000 Range(A列のx行目:A列のx行目)の最大値　→　B列 　　　　　　　　　　　　　　　最小値　→　Y列 Next x ---------------------------------------------------- このように、2000行分同じことを繰り返し、それぞれの行内での 最大値及び最小値を含むセルの列名を取得し、 B列のx行目を赤（最大値） Y列のx行目を青（最小値） に着色したいのです。 よろしくお願いします。

(1)自作のプログラム (2)excel (3)matlab の3種により逆行列を求めてみたのですが，どれも異なる逆行列を吐き出しました． 逆算して確かめてみたのですが，(1)と(3)は元の行列と掛け合わすと単位行列になったのですが,(2)はなりませんでした． 使用した行列は5*5の行列で下の通りです． 1.48E-03 2.86E-03 -5.22E-04 -1.42E-03 -3.00E-03 2.86E-03 7.05E-03 -3.53E-03 -3.54E-03 -5.74E-03 -5.22E-04 -3.53E-03 4.61E-03 1.18E-03 7.46E-04 -1.42E-03 -3.54E-03 1.18E-03 3.66E-03 3.42E-03 -3.00E-03 -5.74E-03 7.46E-04 3.42E-03 6.27E-03 よろしかったら正しい逆行列を教えてください.

VBAにて、ユーザーフォーム上のテキストボックスに初期値として今日の日付が入力されており、さらにそれを任意で変更することも出来、最終的なテキストボックスの値を変数に格納するというマクロを作成しようとしています。 'テキストボックス2の初期値を今日の日付とする Private Sub UserForm_Initialize() TextBox2.Text = Format$(Date, "yyyy/mm/dd") 'テキストボックス2の値が日付かどうかチェック Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(TextBox2.Value) Then DenpyouDate = TextBox2.Value Else TextBox2.Value = "" MsgBox ("日付が不正です") TextBox2.Text = Format$(Date, "yyyy/mm/dd") End If End Sub '他のモジュールでdenpyoudateを使用し、指定のセルに和暦形式で入力する Public DenpyouDate As Date Sheets("伝票").Range("A10").Value = Format(DenpyouDate, "e") Sheets("伝票").Range("C10").Value = Format(DenpyouDate, "m") 「ユーザーフォームのテキストボックスに初期値として日付を表示させ、その最終的な値を変数として格納、別のモジュールで呼び出してセルにセットする」というイメージです。 このマクロを実行した際、初期値である今日の日付を任意の日付に変更した場合は、問題なくそのままの値がセルにセットされるのですが、初期値のまま実行すると、その数値が反映されません。 ローカルウィンドウをチェックすると、ユーザーフォームの時点では、テキストボックスの初期値がきちんとdenpyoudateに格納されているのですが(例：2009/11/24)、それを別モジュールで呼び出した時は、denpyoudateの値が(#0:00:00#)になっており、これが原因だと考えています。 このエラーを回避し、初期値の場合でも値がきちんとセルにセットされるようにするには、どうしたらよいでしょうか？

エクセル200です。 A1、A3、A10の各セルにある数値を四捨五入してから合計するのに =SUM(ROUND(A1,0),ROUND(A3,0),ROUND(A10,0)) でできるのはもちろん存じておりますが、もっと簡単に書く方法はないでしょうか？ A2、A4からA9までのセルが空白であれば =SUMPRODUCT(ROUND(A1:A10,0)*1) A2、A4からA9までのセルが文字列であれば ｛=SUM(IF(ISNUMBER(A1:A10),ROUND(A1:A10,0),""))｝（配列数式） でできるのですが、数値であるために使えません。 上記のA1、A3、A10はあくまで一例で、実際は同一列ではありますがもっとセル数が多いのです。そのため簡単に書ける方法を探しています。 よい方法があればご教示くださいませ。

英数混在する入力規則の方法について質問です。 例えばA１～A10の表に　ZZ、KK、J、５５、３６ という5種類の英数字以外の入力を禁止する方法は どうすれば良いのでしょうか？ 宜しくお願い致します。

月別データの集計表の、数値の大きい順で並び替えさせた後に、コマンドボタンを使って月別に並び替えさせたい（大きい順で並び替えさせた前の状態へ戻す）のですが、ソートにはA-Z,Z-Aしか出てきません。 英語の月名（January...December)の順に並び替えさせるコマンドが全くわからず、四苦八苦しています。助けてください！

月別データの集計表の、数値の大きい順で並び替えさせた後に、コマンドボタンを使って月別に並び替えさせたい（大きい順で並び替えさせた前の状態へ戻す）のですが、ソートにはA-Z,Z-Aしか出てきません。 英語の月名（January...December)の順に並び替えさせるコマンドが全くわからず、四苦八苦しています。助けてください！

エクセル200です。 A1、A3、A10の各セルにある数値を四捨五入してから合計するのに =SUM(ROUND(A1,0),ROUND(A3,0),ROUND(A10,0)) でできるのはもちろん存じておりますが、もっと簡単に書く方法はないでしょうか？ A2、A4からA9までのセルが空白であれば =SUMPRODUCT(ROUND(A1:A10,0)*1) A2、A4からA9までのセルが文字列であれば ｛=SUM(IF(ISNUMBER(A1:A10),ROUND(A1:A10,0),""))｝（配列数式） でできるのですが、数値であるために使えません。 上記のA1、A3、A10はあくまで一例で、実際は同一列ではありますがもっとセル数が多いのです。そのため簡単に書ける方法を探しています。 よい方法があればご教示くださいませ。

エクセル200です。 A1、A3、A10の各セルにある数値を四捨五入してから合計するのに =SUM(ROUND(A1,0),ROUND(A3,0),ROUND(A10,0)) でできるのはもちろん存じておりますが、もっと簡単に書く方法はないでしょうか？ A2、A4からA9までのセルが空白であれば =SUMPRODUCT(ROUND(A1:A10,0)*1) A2、A4からA9までのセルが文字列であれば ｛=SUM(IF(ISNUMBER(A1:A10),ROUND(A1:A10,0),""))｝（配列数式） でできるのですが、数値であるために使えません。 上記のA1、A3、A10はあくまで一例で、実際は同一列ではありますがもっとセル数が多いのです。そのため簡単に書ける方法を探しています。 よい方法があればご教示くださいませ。

いつもお世話になります。 添付の画像で　タイトル　行で 上側で　　氏名　登録日　No　は下記のようなマクロが入っています。 Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Error If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub If Target.Offset(0, -1).Value = "" Then Exit Sub If Target.Value <> "" Then Target.Offset(0, 1).Value = Application.Max(Range("C:C")) + 1 End If Error: End Sub 添付の下のように　No　登録日　氏名　のように位置を変更は上のマクロのどの部分を 変更すればいいかご教示願えませんか。 宜しく御願いします。 色々と試したのですが分からなくなりました。

　質問させていただきます。どうぞよろしくお願いいたします。 　PowerPoint2003で右クリックすると現れる「最前面へ移動」の機能を 今の仕事で使うことが非常に多いので、キーボードから操作したいのですが 方法が分かりません．．． 　もう一個よく使う「グループ化(G)」(←Gのアンダーバー付き)については、 Ctrl+Shift+Gで動作できましたが、 「最前面へ移動(T)」(←Tのアンダーバー付き)は、 Ctrl+Shift+Tとしてもできませんでした。 　お詳しい方がいらっしゃいましたら、是非ともアドバイスいただきたく お願い申し上げます。

ＶＢＡ初心者です。 入門書などで勉強中ですが、手に負えません。 助けてください。 　　A　　　　　B　　　C　 　名前　　　体重　分類 1ニワトリ　　○　　鳥 2ヒラメ　　　■　　魚 3スズメ　　　△　　鳥 4インコ　　　▼　　鳥 5タイ　　　　◇　　魚 6イワシ　　　◆　　魚 というような入力シートの表があります。(下にたくさん続きます) このデータを分類別にしてワークシートを作成しています。 そこで、次のようなＶＢＡを書きたいのです。 ＶＢＡを実行すると、 別シートに分類別に入力表のデータが振り分けられて、 魚がＡ，Ｂ列 　　A　　　　　B 　名前　　　体重 1ヒラメ　　　■ 2タイ　　　　◇ 3イワシ　　　◆ 鳥がＤ，Ｅ列 　　D　　　　　E 　名前　　　体重 1ニワトリ　　○ 2スズメ　　　△ 3インコ　　　▼ と入力シートに入力されたデータが振り分けられるものです。 どうか、よろしくご指導お願いいたします。

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

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

エクセルでラベルシールを作りたいと思っています。 Sheet1のA1に本のタイトルを入力すると、Sheet2のA1に同じくタイトルが表示され、Sheet1のB2に「Level 1」と入力すると、Sheet2のB2のセルに「L1」と表示され、かつB2のセルの背景色が黄色になる、という風に設定をしたいのです。Sheet1をリストとして使用し、Sheet2を実際のラベルとして使用します。レベルは0から11まであり、背景色を12パターン用意しないといけないので、3つまでしか設定できない「条件付き書式」の設定では対応できず、こちらにお尋ねしました。 だれでも使えるファイルを作成するため、マクロを登録してボタンクリックでラベル作成を行ないたいです。 VBEの画面に貼り付けることができるコードを教えていただけないでしょうか。 初めての投稿のため、説明が不十分かと思います。足りない部分は追って補足させて頂きますので、詳しい方、どうぞお知恵をお貸し下さい。

エクセルでラベルシールを作りたいと思っています。 Sheet1のA1に本のタイトルを入力すると、Sheet2のA1に同じくタイトルが表示され、Sheet1のB2に「Level 1」と入力すると、Sheet2のB2のセルに「L1」と表示され、かつB2のセルの背景色が黄色になる、という風に設定をしたいのです。Sheet1をリストとして使用し、Sheet2を実際のラベルとして使用します。レベルは0から11まであり、背景色を12パターン用意しないといけないので、3つまでしか設定できない「条件付き書式」の設定では対応できず、こちらにお尋ねしました。 だれでも使えるファイルを作成するため、マクロを登録してボタンクリックでラベル作成を行ないたいです。 VBEの画面に貼り付けることができるコードを教えていただけないでしょうか。 初めての投稿のため、説明が不十分かと思います。足りない部分は追って補足させて頂きますので、詳しい方、どうぞお知恵をお貸し下さい。

エクセルでラベルシールを作りたいと思っています。 Sheet1のA1に本のタイトルを入力すると、Sheet2のA1に同じくタイトルが表示され、Sheet1のB2に「Level 1」と入力すると、Sheet2のB2のセルに「L1」と表示され、かつB2のセルの背景色が黄色になる、という風に設定をしたいのです。Sheet1をリストとして使用し、Sheet2を実際のラベルとして使用します。レベルは0から11まであり、背景色を12パターン用意しないといけないので、3つまでしか設定できない「条件付き書式」の設定では対応できず、こちらにお尋ねしました。 だれでも使えるファイルを作成するため、マクロを登録してボタンクリックでラベル作成を行ないたいです。 VBEの画面に貼り付けることができるコードを教えていただけないでしょうか。 初めての投稿のため、説明が不十分かと思います。足りない部分は追って補足させて頂きますので、詳しい方、どうぞお知恵をお貸し下さい。

現在使用しているのがExcel2007です。 例えば以下のような配列があったとします。 A1(=りんご) B1(=1) C1(=3) D1(=5) A2(=みかん) B2(=2) C2(=4) D2(=6) A3(=ばなな) B3(=7) C3(=8) D3(=9) このときにA4に"3"を入力したらB4に"りんご" A4に"8"と入力したら"ばなな" などと選択されるような関数がどうしても作成できません。 ご存知の方がいらっしゃいましたら教えてください。 よろしくお願いいたします。