![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.3ベストアンサー
- 回答日時:
No.2続き
goto分使うの止めよう
Sub WK()
Dim A As Variant
Dim B As Variant
Dim C As Variant
Dim D As Variant
Dim Sh1 As Worksheet
Set Sh1 = Worksheets("Sheet1")
A = Sh1.Range("A3").Value
B = Sh1.Range("B3").Value
C = Sh1.Range("C3").Value
D = B * B - 4 * A * C
If D < 0 Then
Sh1.Range("A6").Value = "解なし"
ElseIf D = 0 Then
Sh1.Range("A6").Value = (-1 * B + Sqr(D)) / (2 * A)
Else
Sh1.Range("A6").Value = (-1 * B - Sqr(D)) / (2 * A)
Sh1.Range("B6").Value = (-1 * B + Sqr(D)) / (2 * A)
End If
Application.StatusBar = False
End Sub
僕もこのようなプログラミング作ったのですが、「実行エラー9 インデックスが有効範囲にありません」
というエラー表示が出てきます。
回答していただいた、プログラミングも同じようなエラーがでました。
Sub final4()
Sheets("f4").Select
Dim A As Integer
Dim B As Integer
Dim C As Integer
Cells(3, 1) = A
Cells(3, 2) = B
Cells(3, 3) = C
Dim var1, var2 As Integer
var1 = (B * (-1) + sqr(B * B - 4 * A * C)) / 2 / A
var2 = (B * (-1) - sqr(B * B - 4 * A * C)) / 2 / A
If (B * B - 4 * A * C) < 0 Then
Range("A6") = "解なし"
ElseIf (B * B - 4 * A * C) > 0 Then
Cells(6, 1) = var1
Cells(6, 2) = var2
ElseIf (B * B - 4 * A * C) = 0 Then
Cells(6, 1) = (B * (-1)) / 2 / A
End If
ちなみに自分が作ったのがこれです。
何か悪いかわかりません。
回答お願いします。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.4
- 回答日時:
チャント動くよ。
回答したWorksheets("Sheet1")
あなたのSheets("f4").Select
開いたエクセルに、Sheet1とかf4の名前のシートが無いと言ってるンだけど・・・。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.2
- 回答日時:
ラベルつけるの忘れたからもう一回
そのシート名をSheet1とした場合の例
天才で無くても出来る
Sub WK()
Dim A As Variant
Dim B As Variant
Dim C As Variant
Dim D As Variant
Dim Sh1 As Worksheet
Set Sh1 = Worksheets("Sheet1")
A = Sh1.Range("A3").Value
B = Sh1.Range("B3").Value
C = Sh1.Range("C3").Value
D = B * B - 4 * A * C
If D < 0 Then
Sh1.Range("A6").Value = "解なし"
GoTo E4
ElseIf D = 0 Then
Sh1.Range("A6").Value = (-1 * B + Sqr(D)) / (2 * A)
Else
Sh1.Range("A6").Value = (-1 * B - Sqr(D)) / (2 * A)
Sh1.Range("B6").Value = (-1 * B + Sqr(D)) / (2 * A)
End If
E4:
Application.StatusBar = False
End Sub
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.1
- 回答日時:
そのシート名をSheet1とした場合の例
天才で無くても出来る
Sub WK()
Dim A As Variant
Dim B As Variant
Dim C As Variant
Dim D As Variant
Dim Sh1 As Worksheet
Set Sh1 = Worksheets("Sheet1")
A = Sh1.Range("A3").Value
B = Sh1.Range("B3").Value
C = Sh1.Range("C3").Value
D = B * B - 4 * A * C
If D < 0 Then
Sh1.Range("A6").Value = "解なし"
GoTo E4
ElseIf D = 0 Then
Sh1.Range("A6").Value = (-1 * B + Sqr(D)) / (2 * A)
Else
Sh1.Range("A6").Value = (-1 * B - Sqr(D)) / (2 * A)
Sh1.Range("B6").Value = (-1 * B + Sqr(D)) / (2 * A)
End If
Application.StatusBar = False
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- その他(プログラミング・Web制作) Pythonを用いたフラッシュ暗算ソフトの開発に必要なもの 2 2023/01/29 02:22
- 数学 二次関数 2次方程式ax^2+bx+c=0を分解する際 a>0という条件を付ける と参考書に書いてあ 0 2023/02/08 06:45
- 数学 数学の問題の解き方を教えてください! 3 2022/11/02 17:32
- Ruby プログラミングについてです。教えていただきたいです。 実行例のように、整数xが1から12までにつき、 2 2022/12/19 22:47
- 数学 あいまいな日本語数学問題 9 2022/05/30 10:24
- 数学 『因数に分解するということ』 9 2022/06/27 06:14
- 計算機科学 数1 二次関数 (決定?) 2 2022/08/28 22:40
- その他(Microsoft Office) ピボットテーブルへの集計フィールド挿入 1 2023/02/26 11:33
- C言語・C++・C# このプログラミングの問題を教えてほしいです。 キーボードからデータ数nとn個のデータを入力し、平均値 3 2022/12/19 22:51
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
ブック名、シート名を他のモジ...
-
XL:BeforeDoubleClickが動かない
-
別のシートから値を取得するとき
-
実行時エラー'1004': WorkSheet...
-
excelのマクロで該当処理できな...
-
コマンドボタンをクリックでシ...
-
エクセルで通し番号を入れてチ...
-
特定の文字を含むシートだけマ...
-
VBA 存在しないシートを選...
-
シートが保護されている状態で...
-
ExcelのVBAのマクロで他のシー...
-
セルのコピーで「オブジェクト...
-
VBA 入力月で該当シートを選択...
-
エクセルのシート名変更で重複...
-
VBA 別ブック(シート)の同...
-
VBAエクセルの非アクティブシー...
-
userFormに貼り付けたLabelを変...
-
【VBA】特定の文字で改行(次の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報