0 < p < a
であり、a の値は分かっているが p の値は不明であるとします。
ある値 x について質問すると
「 x < p 」もしくは「 x > p 」 という答えが得られるとすれば、
できるだけ少ない質問回数で、できるだけ p に近い値を知るには
質問に用いる値をどのような規則に従って決めればいいでしょうか。
化学の蒸気圧曲線についての問題です。
以下の値は、エタノールの蒸気圧曲線から読みとったものである。
78℃ 1.0×10^5 Pa
50℃ 3.0×10^4 Pa
40℃ 1.8×10^4 Pa
30℃ 1.0×10^4 Pa
20℃ 6.0×10^3 Pa
(1) 温度と体積を調節できるピストン付容器にエタノール0.10molを封入し、70℃、3.0×10^4Paに保つとv（Ｌ）になった。（これを状態Ａとする）。状態Ａから、圧力を3.0×10^4Paに保ったまま冷却していくと、t1（℃）になったところで、エタノールの凝縮が始まった。t1の値はいくらか。
（２）また20℃で冷却した時、容器内に存在している気体のエタノールは何molか。
自分の解答 （１）５０℃
（２）内圧より、外圧の方が大きいので気体が押しつぶされてしまうため、気体のエタノールは存在しない。
よって０mol
（２）の考え方が不安です。だれか教えていただけませんか。よろしくお願いします。
初めまして。 VBA初心者です。
現在、あるセルの範囲に対して、1の数値が入っているなら
直線を引くマクロを作成中です。
実行すると「実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです。」
と表示されます。
サイト等を見ながら、下記プログラムを書いてみました。
修正頂けると幸いです。解説も頂きたいです。
無茶苦茶なプログラムだと思いますが、
宜しくお願い致します。
Sub test01()
Dim x As Range
Dim c As Range
Dim X1 As Single, Y1 As Single, X2 As Single, Y2 As Single
Set x = Range("D4:E9")
For Each c In x
If Worksheets("Sheet1").Range("c").Value = 1 Then
X1 = Worksheets("Sheet1").Range("c").Left + Worksheets("Sheet1").Range("c").Width
Y1 = Worksheets("Sheet1").Range("c").Top + Worksheets("Sheet1").Range("c").Height / 2
X2 = Worksheets("Sheet1").Range("c").Offset(0, 1).Left
Y2 = Worksheets("Sheet1").Range("c").Offset(0, 1).Top + Worksheets("Sheet1").Range("c").Offset(0, 1).Height / 2
Worksheets("Sheet1").Shapes.AddLine X1, Y1, X2, Y2
End If
Next c
End Sub
エクセル初心者です。
以下のマクロを教えて頂きました。
セルに入力する数値は他の計算式から数値を割り出しています。
このマクロをセンチで入力して、実行する事は可能でしょうか。
その方法がありましたら、教えてください。
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.Shapes.Range(Array("Group 1"))
.Top = 100
.Left = 100
.Height = ActiveSheet.Range("A2").Value
.Width = ActiveSheet.Range("A3").Value
End With
End Sub
よろしくお願いします。
エクセル初心者です。
以下のマクロを教えて頂きました。
セルに入力する数値は他の計算式から数値を割り出しています。
このマクロをセンチで入力して、実行する事は可能でしょうか。
その方法がありましたら、教えてください。
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.Shapes.Range(Array("Group 1"))
.Top = 100
.Left = 100
.Height = ActiveSheet.Range("A2").Value
.Width = ActiveSheet.Range("A3").Value
End With
End Sub
よろしくお願いします。
