Description:
Programmeringsspråket Visual Basic.
|
|
|
lille kode stort problem
|
| |
hej jeg fors ger at oprette textstrenge med 6 tal (ingen dubletter) dim tal(48) For I = 1 To Val(Text1) * 6 Om: Randomize t = Int(48 * Rnd) + 1 For j = 1 To 48 ''ingen dubletter If t = Tal(j) Then GoTo Om End If Next nr = nr + 1... more »
|
|
|
Binde Pil-Opp til programmet ved kode ?
|
| |
Jeg har denne kode : Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventA rgs) Handles Me.KeyUp If e.KeyCode = Keys.Up Then Me.btnUP.PerformClick() e.Handled = True End If End Sub Meningen er altså at om jeg trykker på piltasten opp så skal denne... more »
|
|
|
Combobox og Select Distinct ?
|
| |
Jeg har lagd en tabell i en liten database som jeg fyller inn med data. Bruker VB Express og har lagd den som .mdf database. Kun n tabell brukes med ikke s mange "rows" heller. Har lagd forskjellige sp rringer som utfra "filter" finner de postene jeg s ker etter og da lar meg "bla" i disse.... more »
|
|
|
Makro for å sette kurvefarge på en serie i en graf
|
| |
Prøver å lage en makro for å sette kurvefarge på en serie og tilordne denne makroen til en menyknapp. Alt funker greit bortsett fra en ting: Hvordan hente resultatet av fargevalget! Noen som kan gi et tips? Sub Kurvefarge() If TypeName(Selection) <> "Series" Then ok = MsgBox("No series selected", vbOKOnly)... more »
|
|
|
STEREO REVIEW
|
| |
. To see final results just click on: >>> [link] <<< . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . car stereo reviews stereo equipment reviews stereo review stereo reviews car stereo review stereo receiver reviews... more »
|
|
|
Hvordan finne valgt serie i et chart?
|
| |
Har valgt en serie i et chart, vil lage en makro som finner hvilket dataområde serien dekker (dvs. hente teksten i formellinja, f.eks. "=SERIE("K-27(13)";;'K-27(13)' !$M$49:$M$148;24)" ). Kan velge de enkelte serier vha koden For i = 1 To ActiveChart.SeriesCollection.C ount ActiveChart.SeriesCollection(i ).Select... more »
|
|
|
VBA: forskjell på norsk og engelsk?
|
| |
Hei, har funnet en kode for å ha pop-up bilder som flettes automatisk, men får den ikke til å fungere. Tror dette kan ha med at jeg har norsk versjon, mens denne koden er fra US. Stemmer det? evt, noen som kan hjelpe meg med å fikse koden slik den blir kompatibel med norsk excel 2007? Når jeg forsøker kjøre koden, får jeg feil i... more »
|
|
|
Tull med oversettelse av funksjonsnavn fra engelsk til norsk i VBA og EXCEL
|
| |
Hei. Har norsk Excel (2003 SP3) som programmeres med VBA-makroer. Har problemer med denne linja Cells(2, 1).Formula = "=If(IsEmpty(" + Cells(2, 2).Address + "),""""," + Cells(1, 1).Address + "+1)" som i Excel blir til =HVIS(isempty($B$2);"";$A$1+1) Dersom dette hadde fungert burde det blitt =HVIS(ERTOM($B$2);"";$A$1+1)... more »
|
|
|
