Hej! Till en början vill jag säga att jag är nybörjare på VBA-programmering. Med detta sagt nu till problemet.
Jag har en kolumn med data där jag vill kontrollera värdet i varje cell och beroende på värdet (<10) ska ett tal ("0" i form av string) läggas till framför. Jag har följande data:
1a
3b
2
5c
10
11a
17
15d
Jag har lyckats delvis med det jag vill uppnå med följande kod :
Sub Knapp1_Klicka()
Dim cValue As Integer
Dim textStrang As Variant
cValue = Val(ActiveCell.FormulaR1C1)
textStrang = ActiveCell.FormulaR1C1
If cValue < 10 Then
ActiveCell.FormulaR1C1 = "0" & textStrang
ElseIf cValue > 10 Then
Selection = textStrang
End If
End Sub
Att detta inte löser problemet är för att jag måste stå i den aktiva cellen och klicka på knappen för att få det önskade resultatet nedan:
01a
03b
02
05c
10
11a
17
15d
Det som eftersträvas är att jag ska kunna markera all data (i en kolumn) och utföra kontrollen med ett knapptryck. Dvs:
Kolla rad 1. Om värdet <10 lägg till "0" framför och gå vidare till rad 2. Om värdet <10 lägg till "0" framför och gå vidare till rad 3,4,5....
Hur ska jag angripa problemet?
Tacksam för svar!
/Robin
|
|