IFステートの中にWithステートメントの始まりだけ入れることってできないのですか？
Sub j()
Dim a As String
a = "aaa"
If a = "aaa" Then
With Sheets("作業用1")
Else
With Sheets("作業用2")
End If
End With
End Sub
このような事をやろうとすると、Elseの部分でコンパイルエラーになります。
別の方法として、シートオブジェクトの中に入れちゃえば入れちゃえば
With の分岐をしなくていいことは分かったのですが、
このような使い方をしたいことが多々あるのですが、
VBAの文法的には、IFの中にWithの始まり（先頭）だけを入れることは不可能なのでしょうか？
指定範囲(I9:CW40)から図形(円・四角形)のクリアをするとエラーになってしまいます。終了をすればクリアはできるのですが。御教授願えませんでしようか？(尚四角形はセルの枠線上に貼り付けるようにしてあります。)
Sub 図形のクリア()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim myRng As Range
Dim sp As Variant
Set myRng = Range("I9:CW40")
For Each sp In ActiveSheet.Shapes
If Not Intersect(Range(sp.TopLeftCell, sp.BottomRightCell), myRng) Is Nothing Then
sp.Delete (ここで実行時1004のエラーになる。)
End If
Next
Set myRng = Nothing
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
フォームを画面のど真ん中に表示させたいのですが、
http://dobon.net/vb/dotnet/form/startposition.html
を見たのですがコードの書き方がよくわかりません。
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim f As New Form1() 'フォームを画面の真ん中に表示する
f.StartPosition = FormStartPosition.CenterScreenf.Show()
End Sub
End Class
こうすると、「FormStartPosition.CenterScreenf」の部分に波線がひかれます。
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.StartPosition = FormStartPosition.Manual
Me.Location = New Point(0, 0)
End Sub
End Class
これで左は時に表示する事は出来るのですが、真ん中に表示させるにはどうすればいいでしょうか？
SelectedIndexChangedイベント後、コンボボックスを空白にしたいのですが、
Private Sub cmb_コンボボックス_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmb_コンボボックス.SelectedIndexChanged
Me.cmb_コンボボックス.Text = ""
End Sub
をしても何も起りません。空白にもならないしエラーにもなりません。
Me.cmb_コンボボックス.Text = Null
は出来ないようです。
イベント後、自身のコントロールを空白にするコードを教えてください。ご教授よろしくお願いします。
SelectedIndexChangedイベント後、コンボボックスを空白にしたいのですが、
Private Sub cmb_コンボボックス_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmb_コンボボックス.SelectedIndexChanged
Me.cmb_コンボボックス.Text = ""
End Sub
をしても何も起りません。空白にもならないしエラーにもなりません。
Me.cmb_コンボボックス.Text = Null
は出来ないようです。
イベント後、自身のコントロールを空白にするコードを教えてください。ご教授よろしくお願いします。
みなさんこんにちは。昔Ｖｂ６を少々やっていましたが
ここ数年遠のいていました。
必要に迫られ最近Ｖｂ２０１０を勉強しはじめた５０歳です。
サンプルの通り３つのメンバーを持つ構造体配列があり、
メンバーData3の合計を得るのに、ループで回して
計算してましたが、これを For～Next ではなくFor～Each で
やれないかと考えておりました。配列の要素の個数が不定
な場合に便利だと思ったからです。
サンプルの ???_1が「型」で ???_2が「コレクション」と
なるように記述するのだということまではわかりますが、
具体的な記述がわかりません。For～NetでもDo～Loopでも
他にも方法があるのは知っています。勉強の為に、For～Eachでの
やりかたを知りたいのです。また、構造体配列ではなく、多次元配列での
特定の次元要素を同様に処理する方法も知りたいです。
どなたかご教授お願いできれば幸いです。
ネット上でそれなりに調べましたが、目的に沿う情報は
みつけることができません。
Public Class Form1
Structure STR
Dim Data1 As Double
Dim Data2 As Double
Dim Data3 As Double
End Structure
Private Sub Button1_Click(sender As System.Object, _
e As System.EventArgs) Handles Button1.Click
Dim Str_1(10000) As StR
Dim Rn As New System.Random()
For i = 0 To 9999
Str_1(i).Data3 = Rn.Next(100)
Next
'以降いろんな処理をやる
'
'
'このあと For～Nex ではなくFor Each をつかってメンバーDat3の合計を得るには？
Dim sum As Double
For Each X As ???_1 in ???_2 '???_1 と ???_2 の記述がわからない
sum += X
Next
Label1.Text = sum.ToString
End Sub
End Class
現在、VisualBasic2010を用いてPanel1～Panel4をPanel5へ移動させて図形を作成させるコードを書いております。
今後Panel1～Panel4をPanel5だけでなく、Panel6,Panel7にも同様に移動させたいと考えておりますが、やりかたがわかりません。
画像はPanel5へ移動させたものです。同様に下に配置したPanel6へも移動させたいです。
わかる方がおられましたら、お力添えいただけると助かります。
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Panel5.AllowDrop = True
End Sub
Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown, Panel2.MouseDown, Panel3.MouseDown, Panel4.MouseDown
sender.DoDragDrop(sender, DragDropEffects.Move)
End Sub
Private Sub Panel5_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel5.DragDrop
Dim srsPnl As Panel = e.Data.GetData(GetType(Panel))
Dim dstPnl As New Panel
dstPnl.Size = srsPnl.Size
dstPnl.Location = Panel5.PointToClient(CursorPosition) 'New Point(e.X, e.Y)
dstPnl.BackColor = srsPnl.BackColor
AddHandler dstPnl.MouseDown, AddressOf dstPnl_MouseDown
AddHandler dstPnl.MouseMove, AddressOf dstPnl_MouseMove
Panel5.Controls.Add(dstPnl)
End Sub
Private Sub Panel5_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel5.DragEnter
If e.Data.GetDataPresent(GetType(Panel)) Then
e.Effect = DragDropEffects.Move
End If
End Sub
Private previousPos As Point
Private Sub dstPnl_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
previousPos = CursorPosition()
End Sub
Private Sub dstPnl_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim nowPos As Point = CursorPosition()
DirectCast(sender, Panel).Left += nowPos.X - previousPos.X
DirectCast(sender, Panel).Top += nowPos.Y - previousPos.Y
Console.WriteLine(nowPos.X & "-" & previousPos.X)
previousPos = nowPos
End If
End Sub
Function CursorPosition() As Point
Return New Point(CInt(Cursor.Position.X / 10) * 10, CInt(Cursor.Position.Y / 10) * 10)
End Function
End Class
これが現在書いているコードです。
