ja7awu の回答履歴
- エクセル生年月日から満年齢を出したい
一難去ってまた一難… E2セルに今日の日付、C4セルに生年月日で、 =DATEDIF(C4,$E$2,"Y") の式で今日現在の年齢を出すことはできたのですが、今日現在の年齢ではなく満年齢を出す方法はあるでしょうか? よろしくお願いします。
- エクセルVBAの構文。 どこが間違っているのでしょうか?
以下の2つは同じ意味だと思うのですが、test2はエラーになります。どうしてなのでしょうか? Sub test1() ActiveSheet.Shapes.AddShape(msoShapeRectangle, 300#, 100#, 140#, 80#).Select Selection.Formula = "$A$1" End Sub Sub test2() With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 300#, 100#, 140#, 80#) .Formula = "$A$1" End With End Sub
- エクセルVBAの構文。 どこが間違っているのでしょうか?
以下の2つは同じ意味だと思うのですが、test2はエラーになります。どうしてなのでしょうか? Sub test1() ActiveSheet.Shapes.AddShape(msoShapeRectangle, 300#, 100#, 140#, 80#).Select Selection.Formula = "$A$1" End Sub Sub test2() With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 300#, 100#, 140#, 80#) .Formula = "$A$1" End With End Sub
- エクセルVBAの構文。 どこが間違っているのでしょうか?
以下の2つは同じ意味だと思うのですが、test2はエラーになります。どうしてなのでしょうか? Sub test1() ActiveSheet.Shapes.AddShape(msoShapeRectangle, 300#, 100#, 140#, 80#).Select Selection.Formula = "$A$1" End Sub Sub test2() With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 300#, 100#, 140#, 80#) .Formula = "$A$1" End With End Sub
- エクセル VBAが作動しない
セルの色を変換するVBAとして、標準モジュールに以下のマクロを書き込んでいます。 Sub グレイに() Dim c As Range For Each c In Selection With c.Interior If .Color = RGB(162, 187, 220) Then .Color = RGB(190, 190, 190) End With Next End Sub エクセルに戻って、ctrl+F8で、マクロ名を選んで、実行すれば、実行されるはずなのですが、なぜかきちんと変換されません。 詳しく書くと、何度も何度も「実行」ボタンを押していると、セルの色が指定どおりグレイになるときもあるのですが、特に作動するときと作動しないときに操作の差はありません。 当然ですが、「必ず」実行して欲しいのですが、どこに問題があるのでしょうか? 教えてください。
- ベストアンサー
- オフィス系ソフト
- satochan1228
- 回答数6
- Excelで白黒で256階調出す方法
Excelのあるセルに0~255のいずれかの数字を入力すると、そのセルがその数字にあった白黒での輝度の色で表示されるようにしたいのですが、そんなことできるのでしょうか? ただ、色が出るのは数字を打ち込んだセル自身ではなく、別のセルになってもかまいません。 ただし、色を変化させたいのは単発ではなく、縦横500×500位の画素が欲しいと思っています。 どなたか良きアドバイスをお願いします。
- Excelで白黒で256階調出す方法
Excelのあるセルに0~255のいずれかの数字を入力すると、そのセルがその数字にあった白黒での輝度の色で表示されるようにしたいのですが、そんなことできるのでしょうか? ただ、色が出るのは数字を打ち込んだセル自身ではなく、別のセルになってもかまいません。 ただし、色を変化させたいのは単発ではなく、縦横500×500位の画素が欲しいと思っています。 どなたか良きアドバイスをお願いします。
- エクセル2003でのセル内文字列操作マクロ
あるセルにある文字列を置換し、その置換された文字列を別のセルに移すことをしたいと考えています。 <例> 0000.1111.2222.3333 ↓置換 00:00:11:11:22:22:33:33 (文字列3番目ごとににコロン挿入) 上記のように変換できるマクロメソッド、またロジックなどを教えていただけませんか?また可能でしょうか? (上記の例は逆のパターン(下の文字列から上の文字列への置換)でも結構です。) よろしくお願いします。
- Excel VBA リストボックスのクリア(Win2000、Office2000)
Worksheets("Sheet1")に60個程度のTextBoxとComboBoxが並んでいます。(ユーザーフォーム上ではなく、シート上に配置) この各ボックスに入力された値を、ファイルを開いた時(OpenEvent)で入力されている値を消したいのですが、どうしたらよいでしょうか?(終了時でも構いません) 宜しくお願い致します。
- Excellマクロで数値0と空白部分の認識?
以下はピボットテーブルをマッピングするマクロです。 数値0を色付けしたいのですが、空白部分も色付けしてしまいます。 よろしくお願いします。 For i = 表上端行 + 式行位置1 To 表下端行 - 式行位置3 For j = 表左端列 + 式行位置2 To 表右端列 - 式行位置4 V = Cells(i, j).Value If V >= 300 Then Cells(i, j).Interior.Color = RGB(255, 0, 0) ElseIf V > 0 Then Cells(i, j).Interior.Color = RGB(255, 0, 255) ElseIf V <= -300 Then Cells(i, j).Interior.Color = RGB(0, 0, 255) ElseIf V < 0 Then Cells(i, j).Interior.Color = RGB(0, 255, 255) Else Cells(i, j).Interior.Color = RGB(255, 0, 255) End If Next Next
- エクセルのFIND関数について
エクセルのFIND関数は、特定の文字列が左から何文字目にあるかを求める関数であると理解していますが、右から何文字目にあるかを検索出来ないものでしょうか? なお、検索する文字列は数値以外であり右より一番右にある文字の右からの文字数を検索したいです。 対象文字列 右から数値以外の一番最初の文字の文字数 30%1 → 2 200mg20 → 3 2.5mg1 → 2 1 → 0 25%1 → 2 0.5g1キット(生理食塩液100 → 4 1010 → 0
- Access2000 小数第3位で四捨五入
質問させていただきます。 Access2000で以下の計算式を作りました。 金額 = Round(重量 × 単価,2) これは「金額」を小数第3位で四捨五入します。 ところが以下の数値の場合、正しく計算してくれません。 764.00 = 0.479 × 1595 本当は 764.005 だから 小数第3位で四捨五入すると 764.01 になると思うのですが・・・。 ちなみに以下の値では・・・ 754.44 = 0.473 × 1595 (754.435だから小数第3位で正しく四捨五入されています)。 やり方が悪いのでしょうか?それとも他に正しく計算できる方法があるのでしょうか?
- EXCELのリンクが消えません
Excel2000をwindows98SEで使用しています あるブックの他ブックへのリンクがどうしても消えません。 当然参照式は全てチェック、名前も全て消しました。 最後の手段で既存のワークシートを全て削除してもなお リンクが残っています。 そのブックを開くときにリンクの更新のダイヤログが開かなくなったので、実質的にはリンクは切れているとは思いますが 編集-リンクの設定をみるとやはりリンクが残っているのでやはり気になります。 他にチェックするところがあるのでしょうか? よろしくお願いします。
- エクセルが起動するんですが、止まったままです。
オフィス2000パーソナルのエクセルを使っていますが、 本日、デスクトップのエクセルファイルを開けようとしたら、 「ウィルスの検査をしてください・・」 とかなんとか、ファイルを読み込むときにいつも出るメッセージが出て、 その後うんともすんともいいません。 タスクマネージャを見ると、実行中だったり応答ナシだったり・・ ファイルを直接開けずに、ソフトだけを開けてみましたが、 結果は同じでした。 40分間待ちましたが、結局起動画面で止まってしまいました。 オフィスSR-1までアップデートして、再び試しましたが、 変わりありません。 SR-3までしてみるつもりですが、 何か他に効果的な対策をご存知の方、ご教示ください。 再インストールも試しましたが、インストール画面が文字化けするうえに、 修復インストールをしようとしても “インストール中にエラーが発生しました”となって失敗してしまいます。 アンインストールした後に再インストールしようかとも考えましたが、 再インストール試行時にエラーを確認しているので、 他のソフトも使えなくなると非常に困ります。 どなたかご教示ください。
- 引数指定のないメソッドを教えてください。
DeleteやPrintPreviewのような引数のない メソッドを簡単なものでいいですので、2~3個ぐらい教えてください。 (Excel2003-VBA)
- EXCEL VBAでの数値から列名取得
EXCEL(Excel2003)のVBAで数値から列名を取得する関数 はないでしょうか。 例えば1と指定すればAを取得し、5を指定すればEを取得するというような感じです。 宜しくお願いします。
- エクセルで別ブックをバックグラウンドでオープンする方法
最初にメニュー画面となるブックを開いた後、データブックをバックグランドのみで開きたいのですが、エクセルVBAで単純にOPENを行うと画面上にデータブックが表示されてしまいます。操作作業者に画面が次々入れ替わることを見せたくないのですが、ブックをバックグラウンドだけで開く方法はあるのでしょうか。VBAについては素人で宜しくお願いします。
- エクセルで別ブックをバックグラウンドでオープンする方法
最初にメニュー画面となるブックを開いた後、データブックをバックグランドのみで開きたいのですが、エクセルVBAで単純にOPENを行うと画面上にデータブックが表示されてしまいます。操作作業者に画面が次々入れ替わることを見せたくないのですが、ブックをバックグラウンドだけで開く方法はあるのでしょうか。VBAについては素人で宜しくお願いします。
- 色が付いたセルの合計を出したいのですが…
いつもお世話になります。 エクセル2002を使用していますが、特定の色が付いたセルの個数を数えたいのです。 同時に「色が付いてあるセルを数える」に加えて、「色を付けたら直後、そのセルの個数が数えられる」ようにしたいのです。 「色が付いたセルの引数を数える」というのは分かるのですが、「セルだけの合計」となると分かりません…。 以前にも質問しましたが、結局分からず終いでしたので、改めてお願い致します。 例題)A1~G1を赤で色付けした時に、赤色の付いたセルの個数をA2に出す。 理想とする結果) A2に赤色のセルの合計「7」が出た。