25. oktober 2006 - 14:18Der er
6 kommentarer og 1 løsning
Vb If Case
Kan man gøre denne kode nemmer!? Den skal gøre det på til 31. Select Case TextBox.Value Case "1" Cells(p, k).Value = ComboBox1 Case "2" Cells(p, k).Value = ComboBox1 Cells(p + 2, k).Value = ComboBox1 Case "3" Cells(p, k).Value = ComboBox1 Cells(p + 2, k).Value = ComboBox1 Cells(p + 4, k).Value = ComboBox1 Case "4" Cells(p, k).Value = ComboBox1 Cells(p + 2, k).Value = ComboBox1 Cells(p + 4, k).Value = ComboBox1 Cells(p + 6, k).Value = ComboBox1 Case Else End Select
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
kan den laves o m til kun at skrive hvis der er værdi
If Cells(p, k).Value <> "" Then For x = 1 To FriDageBox.Value Cells(p, k).Offset(2 * (x - 1)) = FriCombo.Value Cells(p, k + 1).Offset(2 * (x - 1)) = FriNotatBox.Value Next End If
Har den If Cells(p, k).Value <> "" Then For x = 1 To Box.Value If Cells(p, k).Offset(2 * (x - 1)).Value <> "" Then Cells(p, k).Offset(2 * (x - 1)) = Combo.Value Cells(p, k + 1).Offset(2 * (x - 1)) = NotatBox.Value End If Next End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
