CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede ExcelJ95 Seniormester
04. april 2019 - 14:24 Der er 4 kommentarer

Afgør om et tal er helt eller ej VBA

Hej.

Jeg har brug for hjælp til, at skive kode som kan afgøre om resultatet af en udregning giver et helt tal eller ej i VBA.

Jeg forestiller mig noget i retninger af:

if N / 3 = WHOLENUMBER then
bla bla


Jeg kan bare ikke finde ud at at få defineret et helt tal

Nogen med gode råd?
pft.
Avatar billede Flemming Vadet - Smart Office DK Professor
04. april 2019 - 14:36 #1
'F.eks. hvis konvertering til integer giver det samme som N/3 så er det et heltal
If N/3 = int(N/3) then

'Du kan også lege med typer
If TypeName(N/3) = "Integer" Then
Avatar billede store-morten Ekspert
04. april 2019 - 22:17 #2
Prøv:
Sub HelTal()
Dim Test

N = 3

Beregning = N / 3
Test = Round(N / 3, 0) / 1 = N / 3

If Test = True Then
MsgBox "Resultatet " & Beregning & " = Heltal"
Else
MsgBox "Resultatet " & Beregning & " = Decimaltal"
End If

End Sub
Avatar billede Flemming Vadet - Smart Office DK Professor
04. april 2019 - 22:38 #3
store-morten, der er bestemt flere måder... INT og ROUND gør iøvrigt det samme, smider decimalerne væk.... - div med 1 er iøvrigt overflødig
INT eller TypeName er nu stadig mine favoritter... skulle jeg selv kode :-)
Avatar billede RogerWilco Seniormester
05. april 2019 - 21:45 #4
En simpel måde:

If N Mod 3 = 0 Then
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser
Stort udvalg af Excel kurser til alle niveauer og jobfunktioner
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Vba Array sortering Af Jan Hansen i Excel 2 19/02/202517:39 I går 20:03
Fravælge celler til sum Af lurup i Excel 6 19/02/202501:36 19/02/202516:06
Fortsæt i nyt lopslag ved fejl ved det første Af Roland i Excel 3 18/02/202512:58 19/02/202514:51
VBA Excel Af ingeman i Excel 17 12/02/202515:42 14/02/202511:44
Tjekke redigering af delt Excel fil Af cyperbent i Excel 3 06/02/202522:51 08/02/202518:16
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 17:34 PC starter ikke op, sort skærm, ingen BIOS Af jonasbang i PC
I dag 15:20 Hvordan får man en "Asus Nuc" i gang Af bjarnebif i PC
I dag 13:21 Uønskede nyheder på mobil Samsumg S21 (måske via app?) Af Philip Kuhlmann i Browsere
I dag 13:10 USB dongle Af Wombat i Andet hardware
I går 17:41 SMS ok eller svindel. Af valby i Diverse
White papers
Flere white papers »


Premium
Teaser billede
Alt om den prisvenlige iPhone 16E: Så god er den i forhold iPhone 16 og 16 Pro
Læs mere »
Derfor ender dine AI-projekter ofte med at blive for dyre: Tre store udfordringer, som det er svært at tackle
Regeringen har sendt brev til den danske it-branche som svar på bekymringer: Og svaret er "stærkt, klart og meget kærkomment," siger branchen
En lille håndfuld cloud-leverandører sidder på 64 procent af det globale marked: Omsætter for flere hundrede milliarder kroner
Se alle »
Computerworld
Teaser billede
Test: En af de bedste elbiler, som du overhovedet kan købe, er fransk
Læs mere »
Test: Verdens vildeste trådløse højttaler trodser naturlovene og udløser et sjældent seks-tal
Selv pc’er fra 2020 efterlades i kulden: Her er de processorer som mister Microsoft Windows-support
Ny Windows-opdatering skaber store problemer for brugerne: Alvorlige fejl
Se alle »
CIO
Teaser billede
Microsoft gør klar til at lukke for WSUS efter 20 år - alle it-admins bør forberede sig
Læs mere »
Tre ud af fire it-projekter løber af sporet og går over budgettet - og det er der en særlig forklaring på
Regioner klar med licens-aftale med Microsoft: Priserne stiger markant
Microsoft indgår syvårig milliardaftale med rådgivnings-gigant – 600 danske ansatte får Copilot-licenser
Se alle »
Job & Karriere
Teaser billede
40 år gammelt dansk it-selskab fusionerer med hollandsk firma og skifter navn
Læs mere »
Her er deres månedsløn: Så meget tjener CIO'erne i de danske regioner - den bedst lønnede får mere end digitaliseringsministeren
Lønninger i den danske it-branche fortsætter med at stige - så meget tjener de danske it-folk i gennemsnit
Nørgaard: I de gode gamle dage havde jeg for vane at fyre alle mine medarbejdere jævnligt
Se alle »
White paper
Teaser billede
Sådan: Opgradér din printerløsning uden store investeringer
Læs mere »
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »