fumufumu_2006 の回答履歴

エクセル内にチェックボックス（CheckBox1）を追加したのですが、セルの式にそのチェックが入っているかどうかをifを使って書きたいのですが、どのように書いたらよいのでしょうか。（コントロールツールボックスの書き方）ちなみに式を書くセルのシートとチェックボックスがあるシート（シート名：設定）は別になります。 現在チェックボックスのプログラムにセル内容を変えるように書いているのですが、保護するとだめなのでお願いします。

エクセルでアンケートのデータを入力しています． １人分を1列とし、横に入力しています(A2からDB2)． １人分が終わったら，Enterキー等で自動的に次の行頭に移動 することはできないでしょうか(上記の入力の続きだとDB2からA3へ)？ 現在は、カーソルキーやHomeキーで移動してますが，同じように入力を 2000人分行う為、大変しんどいです． 良い知恵をご指導下さい． 入力範囲を指定する方法もあるようですが、入力ミスを直したり、 矢印キーやマウスをつい操作してしまうと、入力範囲が消えてしまい 難しいところです．

以前の質問もイロイロと拝見しましたが、よくわからなかったので 質問させていただきます。 はっきりいってAccess初心者です。 テーブルをつくったことと入力程度しかしたことがありません。 ・・・が、フォームをつくらなくてはならなくなりました。 ずっと取り組んできたんですが、すでにだいぶ月日がたってしまって 会社の人たちから毎日のように進捗をきかれてかなりプレッシャーです。 お力を貸していただけたらと思います。 ●不明点 都道府県と市町村と年齢層と比率(料金の)が入っているデータがあります。 このデータは都道府県×市町村×年齢層のセット毎に比率が異なっていて 全部で6000件程度の組み合わせがあります。 たとえば・・・東京都×杉並区×50代→料金比率38％といった具合です。 これを(1)都道府県のテキストボックスをクリックしたときに都道府県の一覧が表示される (2)(1)で選んだ都道府県名によって市町村名のテキストボックスに市町村一覧が表示される (3)(2)までで選んだ都道府県と市町村によって年齢層のテキストボックスに年齢層の一覧が表示される (4)(3)までで選んだ都道府県×市町村×年齢層の組み合わせによって、 比率のテキストボックスにそれに応じた比率が選択される、というふうにしたいんです。 さらにこの比率に金額をかけて回数分で割って・・・というようなことをしていくのですが、とりあえず上記の部分の作成ができず、お手上げ状態になっています。お手数ですがどうすればよいか教えていただけないでしょうか？ テーブルはこういう項目にしたほうがいいというようなものがあればそちらも教えていただけると大変助かります。

VB勉強中で、何度も申し訳ございません。 DataGridViewの選択されたセルの色がノーマルでは、「点線囲いの青色」になっていますが、ちょっと邪魔なので、透明もしくは、表示させないようにすることってできますか。 DataGridView1.ForeColor = Color.Empty だと無反応 DataGridView1.ClearSelection() だと「点線囲い」だけが残ります。 ご教授願います。よろしくお願いいたします。

VBA初心者です。 コンボボックスに付いて質問です。コンボボックス１・２があったとして、選択する内容がまったく同じな場合。 （コンボボックス１＝名前１　２＝名前２として） With 名前1 ・additem"鈴木" ・additem"田中" 　　　　↓ End with With 名前2 ・additem"鈴木" ・additem"田中" 　　　　↓ End with といった用にコンボボックスごとに入力せず、一つにまとめて入力する方法を教えて頂けないでしょうか、、、 また例えば『電話1』『電話2』というコンボボックスが『名前１・２』のボックスの次にあった場合、 （コンボボックス3＝電話１　4＝電話２として） With 電話1 ・additem"０９０－１・・・・・" ・additem"０６６－２・・・・・" 　　・additem"０９０－３・・・・・" ・additem"０６６－４・・・・・" 　　　　↓ End with With 電話2 ・additem"０９０－１・・・・・" ・additem"０６６－２・・・・・" 　　・additem"０９０－３・・・・・" ・additem"０６６－４・・・・・" 　　　　↓ End with 『名前１』で『鈴木』と選んだ場合に『電話1』で何らかの形で予め登録し『鈴木』⇒０９０－１・・・と０９０－２・・・と 電話１のボックスで選択出来るようにしたいのです。 『電話2』も同じで『名前2』で選択した名前により電話2のボックスに表示する電話番号を表示させたいのです。 今の場合だと『名前』は追加するたびに他の名前ボックスも追加しないといけない作業が出てきます。 電話に関しては名前より選択されたものに対して選択枠を減らして表示するようにし、選択作業のを軽減できればと考えています。 尚電話も一つにまとめて入力したいです。電話1・2は同じ内容です。 例はあくまで例ですので実際の内容とことなりますが、やろうとしている内容は同じです。 とても初心者な質問で申し訳御座いませんがご教授お願い致します。 例などで教えて頂ければ幸いです。

Office2000のAccessで作成されたアプリケーションは、 Office2007で動作するでしょうか？。 　 最近DellのＰＣを購入しましたが（まだ到着していない）、 Officeは2007しか選択出来ませんでした。 大丈夫でしょうか？。

VBA初心者です。 コンボボックスに付いて質問です。コンボボックス１・２があったとして、選択する内容がまったく同じな場合。 （コンボボックス１＝名前１　２＝名前２として） With 名前1 ・additem"鈴木" ・additem"田中" 　　　　↓ End with With 名前2 ・additem"鈴木" ・additem"田中" 　　　　↓ End with といった用にコンボボックスごとに入力せず、一つにまとめて入力する方法を教えて頂けないでしょうか、、、 また例えば『電話1』『電話2』というコンボボックスが『名前１・２』のボックスの次にあった場合、 （コンボボックス3＝電話１　4＝電話２として） With 電話1 ・additem"０９０－１・・・・・" ・additem"０６６－２・・・・・" 　　・additem"０９０－３・・・・・" ・additem"０６６－４・・・・・" 　　　　↓ End with With 電話2 ・additem"０９０－１・・・・・" ・additem"０６６－２・・・・・" 　　・additem"０９０－３・・・・・" ・additem"０６６－４・・・・・" 　　　　↓ End with 『名前１』で『鈴木』と選んだ場合に『電話1』で何らかの形で予め登録し『鈴木』⇒０９０－１・・・と０９０－２・・・と 電話１のボックスで選択出来るようにしたいのです。 『電話2』も同じで『名前2』で選択した名前により電話2のボックスに表示する電話番号を表示させたいのです。 今の場合だと『名前』は追加するたびに他の名前ボックスも追加しないといけない作業が出てきます。 電話に関しては名前より選択されたものに対して選択枠を減らして表示するようにし、選択作業のを軽減できればと考えています。 尚電話も一つにまとめて入力したいです。電話1・2は同じ内容です。 例はあくまで例ですので実際の内容とことなりますが、やろうとしている内容は同じです。 とても初心者な質問で申し訳御座いませんがご教授お願い致します。 例などで教えて頂ければ幸いです。

条件付き書式について質問です。 A7:M15の範囲を「色範囲」と名前定義しているとして、 その範囲の中で「あ」から始まる文字列の場合、 フォントの色を赤色に設定したいのですが、 １つ１つのセルに対して条件付き書式を設定していくのであれば当然出来きるのはわかります。 Workbooks(book1).Sheets(sheet1).Cells("A7").FormatConditions.Add Type:=xlExpression, Formula1:= _ "=COUNTIF(A7,""あ*"")" .FormatConditions(1).interior.colorIndex = 6 Workbooks(book1).Sheets(sheet1).Cells("A8").FormatConditions.Add Type:=xlExpression, Formula1:= _ "=COUNTIF(A8,""あ*"")" .FormatConditions(1).interior.colorIndex = 6 ・・・ ・・・ ・・・ しかし、 範囲全てに対して下記の設定をしてVBAを起動 Workbooks(book1).Sheets(sheet1).Cells(色範囲).FormatConditions.Add Type:=xlExpression, Formula1:= _ "=COUNTIF(A7,""あ*"")" .FormatConditions(1).interior.colorIndex = 6 エクセル側でA8のセルの条件付き書式をみると、 =COUNTIF(A8,"あ*") と自動で行（列）が変わっているのかわかりません。 要は名前定義をした範囲選択、行番号選択、列番号選択どの場合でも、 左上に表示されたセル座標をCOUNTIFの文字列の引数に設定すればいいのでしょうか。 よろしくお願いいたします。

EXCEL VBAでの質問です。初心者です・・・ if文を書いていて、条件が3つ程あったのでOR条件でわけて記述した所 コードが長くなり改行しようと考えたのですがそのまま改行するとエラーになります・・・ コードを改行する場合は "," ではダメなのでしょうか？ 省略ですがこのようなプログラムで途中で改行したいのです。 If Range("A21").Value = 1　or Range("A21").Value = 12 ・・・Then 初歩的ではございますが、よろしくお願いいたします

ファイルメーカーのに入っている住所録のデータを 弥生顧客にインポートする際に ファイルメーカーのデータをxlsにエクスポート それとcsvファイルに保存 カンマ区切りのテキストファイル にして弥生顧客にインポートするのですが もとデータの住所を関数で町名までと番地以下に分けているのですが xls→csvに変換する際に 住所の番地以下が数値として読み込まれ 勝手に日付になってしまうところがあります。 （しかも、その日付も西暦だったり英文だったりばらばら） 外部ファイルとして読み込んだりしてみたのですが上手くいきません。 何か解決策があれば教えてください。 どうぞよろしくお願いいたします。 ファイルメーカーのバージョンは5.5 エクセルは2003 弥生顧客は8.0です。 OSはWinXpです。

Excelで、ある数式セルに表示されたデータを、数値データとして参照したいのですが、どうやっても文字列データとしてしか認識してくれません。 具体的に書くと、 例えばセルA1に、FIND関数で他のセルから抜き出した半角数字のみのデータを表示しているとします。 そのA1の数値を、今度はセルA2で、 if(A1=1000,A1*2,A1/2) などと数式で参照したい時に、私のExcel（2002です）では、どうやってもA1=1000という条件式をきちんと判別してくれません。どうやら、FIND関数で抜き出したために文字列データとして扱われてしまっているようです。 その証拠に、A1が実際に「1000」の時に if(A1="1000",A1*2,A1/2) という風に1000をダブルクォーテーションで囲んで式を書くと、きちんとA1*2を実行してくれます（つまり、A1が実際に1000の時でも条件式の1000をダブルクォーテーションで囲まないと、きちんと判別してくれないという事です）。 この状態から抜け出せずに、どうにも困っています。 どうにかA1の「1000」というデータを文字列でなく数値データとして条件式で利用できるように出来ないものでしょうか。 乱文ですみませんが、よろしくお願いいたします。

例えば、 A1に「あ」 B1に「い」 C1に「う」 ・ ・ ・ という風に文字が入っているとします。 =fw(A1:C1) で「あいう」というような文字列の結果が欲しいのですが、 自作関数に関して知識が乏しいのでどういうのを書けばいいかわかりません。 詳しい方、いい案があったら教えてもらえないでしょうか。 ちなみに文字を接続する関数の=CONCATENATE(A1:C1)では「あ」としか出ませんでしたorz

Excelのプログラムでテキストボックス上のカーソルを動かし、テキストボックスの文字が青くなって、選択範囲を終えたとき（マウスを離したとき）に、範囲を選択したかどうか調べるプログラムを作りたいのですがどのようにすればよいのでしょうか？ MouseUpでやってみたのですが、選択しないまま（青くならない）マウスを離すと同じことになってしまうのでこの判定をしたいのですが。 回答よろしくお願いします。

・フォントサイズ16 ・中央揃え ・"あ"とゆう文字なら赤色に設定する という 書式の設定と条件付き書式の設定がしたいのですが、 エラーが出てうまくいきません。 上記設定をしたいのは名前の定義「Area_書式」をしたセル内「A1:Z20」のみです。 処理上、他のブックも開いているため、書式設定したいブックの名前は指定したいです。 Workbooks("book1").Names.Add Name:="Area_書式", RefersToR1C1:="='sheet1'!A1:Z20" with Workbooks("book1").Range(Area_書式) .HorizontalAlignment = xlCenter .Font = 16 .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=あ" .FormatConditions(1).Font.ColorIndex = 3 end with 「オブジェクトはこのプロパティ、またはメソッドをサポートしていません」 とゆうエラーが出ます。 Workbooks("book1").Range(Area_書式).Select　もできませんでした。 Range(Area_書式).Select　は出来ました。 ブックの指定は出来ないのでしょうか。 どこがいけないでしょうか。よろしくお願いします。 Excel2002です。

・フォントサイズ16 ・中央揃え ・"あ"とゆう文字なら赤色に設定する という 書式の設定と条件付き書式の設定がしたいのですが、 エラーが出てうまくいきません。 上記設定をしたいのは名前の定義「Area_書式」をしたセル内「A1:Z20」のみです。 処理上、他のブックも開いているため、書式設定したいブックの名前は指定したいです。 Workbooks("book1").Names.Add Name:="Area_書式", RefersToR1C1:="='sheet1'!A1:Z20" with Workbooks("book1").Range(Area_書式) .HorizontalAlignment = xlCenter .Font = 16 .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=あ" .FormatConditions(1).Font.ColorIndex = 3 end with 「オブジェクトはこのプロパティ、またはメソッドをサポートしていません」 とゆうエラーが出ます。 Workbooks("book1").Range(Area_書式).Select　もできませんでした。 Range(Area_書式).Select　は出来ました。 ブックの指定は出来ないのでしょうか。 どこがいけないでしょうか。よろしくお願いします。 Excel2002です。

excel2003を使用しています。 今sheet上にオプションボタンをを横一列に5つ作りました。 (1)オプションボタンを複数にチェックをいれたい。 (2)同じボタンを2回押すとチェックが外れる。 ように設定したいです。 VBAでも構いません。 急いでいます。知恵を貸してください。

転記元エクセルの転記元シートのCells(i,1)の値を 転記先エクセルの転記先シートのCells(i,2)に貼り付けをしたいです。 転記先シートにあるコマンドボタンを押したときに処理されるようになっています。 調べていると転記元エクセルは開いていないといけなさそうなので、 Openで開く処理を入れたのですが、 画面描画されるとチカチカすると思うので、Open前に Application.ScreenUpdating = False 処理を入れました。 なのに、どうやら表示されているようなんです。 されているようだとゆうのは、 実際には画面にエクセルの画面は出てこないのですが、 タスクトレイに「転記元.xls」と出ているのと、 VBのエディタに「転記元.xls」のエクセルオブジェクトが追加されたり消えたりと チカチカしていて、処理時間も５分以上かかります。 とにかくチカチカさせたくないのですが、 どのようにすればよいでしょうか。 環境：Excel2002 WindowsXP Professional Private Const EXCEL_NAME_MOTO = "転記元.xls" Private Const EXCEL_NAME_SAKI = "転記先.xls" Private Const SHEET_NAME_MOTO = "転記元シート" Private Const SHEET_NAME_SAKI = "転記先シート" Private Sub CommandButton1_Click() Dim i as Integer Application.ScreenUpdating = False Workbooks.Open Filename:=ThisWorkbook.Path & "\" & EXCEL_NAME_MOTO For i = 1 To 100 Workbooks(EXCEL_NAME_MOTO).Sheets(SHEET_NAME_MOTO).Cells(i, 1).Copy Workbooks(EXCEL_NAME_SAKI).Sheets(SHEET_NAME_SAKI).Cells(i, 2).PasteSpecial _ Paste:=xlValues Next Workbooks(EXCEL_NAME_MOTO).Close Application.ScreenUpdating = True End Sub

大変困っています。 会員マスタという元データを作成し、そのシートに「シート追加」という ボタンを作りました。 そのボタンを押すと、元データのシートの後ろにそのまま同じデータがコピーされて追加される様にＶＢＡで設定したいです。 ・行などはずれない様に設定したい。 ・シート名は変更できるようにしたい。 ・コピーして追加したシートにはボタンは表示されないようにしたい。 急いでます。知恵を貸してください。

大変困っています。 会員マスタという元データを作成し、そのシートに「シート追加」という ボタンを作りました。 そのボタンを押すと、元データのシートの後ろにそのまま同じデータがコピーされて追加される様にＶＢＡで設定したいです。 ・行などはずれない様に設定したい。 ・シート名は変更できるようにしたい。 ・コピーして追加したシートにはボタンは表示されないようにしたい。 急いでます。知恵を貸してください。

エクセルVBAのUserFormのcombboxで表示する項目を、 AddItemで追加した後に、 項目をabc順で表示する様に並びかえる方法はありますか？ AddItemで追加する前に並びかえてから AddItemで追加するしかないのですか？