Visual Basic 2010 Express
windows7 Pro
dmyが何であるかでラジオボタンのチェックを入れたいのですが、
下記の場合はそれぞれの値でチェックが入りません。
dmy = My.Computer.FileSystem.ReadAllText("dmy.txt")
Select Case dmy
Case "aaa"
RadioButton4.Checked = True
Case "bbb"
RadioButton6.Checked = True
Case "ccc"
RadioButton7.Checked = True
End Select
下記の場合、CheckBox7にチェックが入ると、 RadioButton1はオフになったので、
Trueにするだけで出来ると思ったのですが、変わりませんでした。
If CheckBox7.Checked Then
RadioButton1.Checked = False
End If
Visual Basic 2010 Express
windows7 Pro
dmyが何であるかでラジオボタンのチェックを入れたいのですが、
下記の場合はそれぞれの値でチェックが入りません。
dmy = My.Computer.FileSystem.ReadAllText("dmy.txt")
Select Case dmy
Case "aaa"
RadioButton4.Checked = True
Case "bbb"
RadioButton6.Checked = True
Case "ccc"
RadioButton7.Checked = True
End Select
下記の場合、CheckBox7にチェックが入ると、 RadioButton1はオフになったので、
Trueにするだけで出来ると思ったのですが、変わりませんでした。
If CheckBox7.Checked Then
RadioButton1.Checked = False
End If
OS: ウィンドウズ8 エクセル2010にて工程表を作成中です。ある作業が選択されたら、すぐに別のシート（シート名：仕分け作業）に その発生した日付が飛ぶようにしたいのですが、お知恵を拝借できますでしょうか
画像では、6工程のみ載せてますが、実際には、A3仕様で24工程になります。工程は、左右上下しますので選択にて矢印を決めるように作成してあります。 この中の作業内容はドロップダウンにて50種程から選択できるようになってます。その50種中の一作業（仕分け作業）が選択された時点で、その実行日が別シート（仕分け作業） の１セル（仮：A1）に飛ぶようにしたいのですが、ここで、問題なのは、24工程あるうちのどの段階で仕分け作業が選択されるかわからないのです。
その場合の公式を教えて頂けたら、とても助かります。
一旦は上司に提出したブックなのですが、更正が入りまして・・・そのようにしてくれといわれましても・・・・私の技能ではとうてい叶いません。どなたかお詳しい方宜しくお願い致します。
とりあえず、はじめの縦列の8工程で試してみようと・・・ネットで、調べながら作ってみた公式なのですが、やはり、エラー（RangeクラスのSelectプロパティを取得できません。）表示が出ます。仕分け作業シートに飛び、指定のセルまでは、行くのですが・・・その先で悩んでます。
間違いを教えていただけないでしょうか。
'シート1に何らかの変更が行われる度に発動します
Sub Worksheet_Change(ByVal Target As Range)
'もし変更されたセルがE11~E63,M11~M63,U11~U63で入力された値が"仕分け作業"だったら
If (Target.Range("E11:E63,M11:M63,U11:U63").Select And Target.Value = "仕分け作業") Then
'シート６をアクティブにして
Sheet6.Activate
'シート6のC2に、変更されたセルのB14,B21,B28,B35,B42,B49,B56,B63のデータを入れる
Sheet6.Range("C2").Value = Cells(Target.Range("B14,B21,B28,B35,B42,B49,B56,B63").Select)
End If
'該当しなかった場合は何もしない
End Sub
補足： Sheet6.Range("c2").Value = Range("B14,B21,B28,B35,B42,B49,B56,B63").Value
にすると仕分け作業シートに飛んで日付も入るのですが、はじめのB１４しか有効ではありません。
VBのGUIです。
行列の足し算を行うプログラムをつくりたいです。
以下のプログラムはできたところまで作成しています。
□個の□行□列（□はテキストボックス）の所に例えばユーザーが3 3 3と入力したとします。
ボタン１を押すと3×3の3個個分のテキストボックスがでてきて、要素を打ち込めるようになります。
そしてユーザが要素を打ち込みます。次に要素が
1 2 1 2 1 2 2 1 2
2 1 2 1 2 1 1 2 1
1 2 1 2 1 2 1 2 1
というように入力されたとします。
ボタン２を押すと
３×３のテキストボックスが出てきて
この３つの行列の和を足した
5 4 5
4 5 4
4 5 4というようにテキストボックスに表示されるようにしたいです。
３この３行３列の和だけでなく何個の何行何列の場合でもできるようにしたいです。
どのようなソースでこのプログラムはできるのでしょうか。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Bounds = New Rectangle(10, 10, 1300, 800)
Dim number As Integer
Dim rows As Integer
Dim columns As Integer
If Not Integer.TryParse(TextBox3.Text, number) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Not Integer.TryParse(TextBox1.Text, rows) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Not Integer.TryParse(TextBox2.Text, columns) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
For k = 1 To number
For i = 1 To rows
For j = 1 To columns
Dim tb As TextBox = New TextBox()
tb.Name = "R" & i.ToString() & "C" & j.ToString() & "No" & k.ToString()
Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + 80
tb.Left = (j - 1) * 60 + 70 * (columns * (k - 1)) + 10
tb.Width = 50
Next
Next
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim number As Integer
Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim n As Integer
Dim m As Integer
Dim sum As Double
sum = 0
For n = 1 To columns
For m = 1 To rows
sum = 0
For r = 1 To number
Next
For i As Integer = 1 To rows
For j As Integer = 1 To columns
Dim tb As TextBox = New TextBox()
tb.Name = "R" & i.ToString() & "C" & j.ToString()
Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + 80
tb.Left = (j - 1) * 60 + 10
tb.Width = 40
Next
Next
Next
Next
End Sub
End Class
VBのGUIです。
行列の足し算を行うプログラムをつくりたいです。
以下のプログラムはできたところまで作成しています。
□個の□行□列（□はテキストボックス）の所に例えばユーザーが3 3 3と入力したとします。
ボタン１を押すと3×3の3個個分のテキストボックスがでてきて、要素を打ち込めるようになります。
そしてユーザが要素を打ち込みます。次に要素が
1 2 1 2 1 2 2 1 2
2 1 2 1 2 1 1 2 1
1 2 1 2 1 2 1 2 1
というように入力されたとします。
ボタン２を押すと
３×３のテキストボックスが出てきて
この３つの行列の和を足した
5 4 5
4 5 4
4 5 4というようにテキストボックスに表示されるようにしたいです。
３この３行３列の和だけでなく何個の何行何列の場合でもできるようにしたいです。
どのようなソースでこのプログラムはできるのでしょうか。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Bounds = New Rectangle(10, 10, 1300, 800)
Dim number As Integer
Dim rows As Integer
Dim columns As Integer
If Not Integer.TryParse(TextBox3.Text, number) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Not Integer.TryParse(TextBox1.Text, rows) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Not Integer.TryParse(TextBox2.Text, columns) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
For k = 1 To number
For i = 1 To rows
For j = 1 To columns
Dim tb As TextBox = New TextBox()
tb.Name = "R" & i.ToString() & "C" & j.ToString() & "No" & k.ToString()
Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + 80
tb.Left = (j - 1) * 60 + 70 * (columns * (k - 1)) + 10
tb.Width = 50
Next
Next
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim number As Integer
Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim n As Integer
Dim m As Integer
Dim sum As Double
sum = 0
For n = 1 To columns
For m = 1 To rows
sum = 0
For r = 1 To number
Next
For i As Integer = 1 To rows
For j As Integer = 1 To columns
Dim tb As TextBox = New TextBox()
tb.Name = "R" & i.ToString() & "C" & j.ToString()
Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + 80
tb.Left = (j - 1) * 60 + 10
tb.Width = 40
Next
Next
Next
Next
End Sub
End Class
VBのGUIです。
行列の足し算を行うプログラムをつくりたいです。
以下のプログラムはできたところまで作成しています。
□個の□行□列（□はテキストボックス）の所に例えばユーザーが3 3 3と入力したとします。
ボタン１を押すと3×3の3個個分のテキストボックスがでてきて、要素を打ち込めるようになります。
そしてユーザが要素を打ち込みます。次に要素が
1 2 1 2 1 2 2 1 2
2 1 2 1 2 1 1 2 1
1 2 1 2 1 2 1 2 1
というように入力されたとします。
ボタン２を押すと
３×３のテキストボックスが出てきて
この３つの行列の和を足した
5 4 5
4 5 4
4 5 4というようにテキストボックスに表示されるようにしたいです。
３この３行３列の和だけでなく何個の何行何列の場合でもできるようにしたいです。
どのようなソースでこのプログラムはできるのでしょうか。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Bounds = New Rectangle(10, 10, 1300, 800)
Dim number As Integer
Dim rows As Integer
Dim columns As Integer
If Not Integer.TryParse(TextBox3.Text, number) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Not Integer.TryParse(TextBox1.Text, rows) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Not Integer.TryParse(TextBox2.Text, columns) Then
MessageBox.Show("数字で入力してください", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
For k = 1 To number
For i = 1 To rows
For j = 1 To columns
Dim tb As TextBox = New TextBox()
tb.Name = "R" & i.ToString() & "C" & j.ToString() & "No" & k.ToString()
Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + 80
tb.Left = (j - 1) * 60 + 70 * (columns * (k - 1)) + 10
tb.Width = 50
Next
Next
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim number As Integer
Dim rows As Integer
Dim columns As Integer
Dim r As Integer
Dim n As Integer
Dim m As Integer
Dim sum As Double
sum = 0
For n = 1 To columns
For m = 1 To rows
sum = 0
For r = 1 To number
Next
For i As Integer = 1 To rows
For j As Integer = 1 To columns
Dim tb As TextBox = New TextBox()
tb.Name = "R" & i.ToString() & "C" & j.ToString()
Me.Controls.Add(tb)
tb.Top = (i - 1) * 30 + 80
tb.Left = (j - 1) * 60 + 10
tb.Width = 40
Next
Next
Next
Next
End Sub
End Class
visual studio express 2012 for windows Desktopでpostgres8.3にＩＯするプログラムを作りたいのですが、
そのインターフェイス部分のコードやサンプルを掲載しているＷＥＢサイトを紹介して頂けませんか。
直接回答して頂く事も歓迎します。
追加モジュールをどこかで入手しないといけないとか、事前の必要事項も知りたいです。
