קאנווערטן פאון נומבער'ס צו פאון נומבער פארמאט

די אחראים: זייער נייגעריג, אחראי, thefact

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11185
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

קאנווערטן פאון נומבער'ס צו פאון נומבער פארמאט

תגובהדורך פאטאקי08 » מאנטאג ינואר 14, 2008 1:42 pm

איך האב א דעטע בעיס מיט פאון נומבערס אבער סאיז נישט אויסגשטעלט לויט א פאון נומער פארמאט
אסאך האבן נישט קיין עריע קאוד און אפילו ווער סהאט יא שטייט עס אדער אזוי 212-555-1212
אדער
(212)555-1212 אן קיין ספעיס אינצווישען

ווי אזוי קען איך אויך א גרינגען אויפן זיי קאנווערטן צו א פאון נומער פארמאט אן דארפן איבער גיין אלע איבער טויזענט נומערן?

3x0
המכונה 'טריאו'
תגובות: 9146
זיך איינגעשריבען אום: מיטוואך יוני 28, 2006 11:29 am
לאקאציע: חבוי

תגובהדורך 3x0 » מאנטאג ינואר 14, 2008 1:47 pm

איך וואלט עס געמאכט אזוי.

פיינד 212-, ריפלעיס מיט (212).

און אזוי ווייטער.

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11185
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » מאנטאג ינואר 14, 2008 1:56 pm

שכח טריאוי
איך רעד דא פון אסאך מיני עריע קאוד נישט נאר פון איין נומער

3x0
המכונה 'טריאו'
תגובות: 9146
זיך איינגעשריבען אום: מיטוואך יוני 28, 2006 11:29 am
לאקאציע: חבוי

תגובהדורך 3x0 » מאנטאג ינואר 14, 2008 2:00 pm

איך האב מיך פארגעשטעלט, אבער איך האב געטראכט אז איך וואלט דעס געטון ביז איך וואלט נישט געהאט עפעס אנדערש.

אוועטאר
thefact
שר האלפיים
תגובות: 2512
זיך איינגעשריבען אום: מיטוואך ינואר 31, 2007 3:30 pm
לאקאציע: וויליאמסבורג, ברוקלין
פארבינד זיך:

תגובהדורך thefact » דינסטאג ינואר 15, 2008 1:03 pm

לייג דעס אריין אין א MODULE (אין די מאדיועל וועט עס זיין געהעריג ליינבאר)
[align=left]
Function ConvertPhone(Phone As String)
On Error GoTo ConvertPhone_err

Dim PhoneLen As Integer

Phone = Replace(Phone, " ", "")
Phone = Replace(Phone, "(", "")
Phone = Replace(Phone, ")", "")
Phone = Replace(Phone, "-", "")

PhoneLen = Len(Phone)

Select Case PhoneLen
Case 7
ConvertPhone = "( ) " & Left(Phone, 3) & _
"-" & Right(Phone, 4)
Case 10
ConvertPhone = "(" & Left(Phone, 3) & ") " _
& Mid(Phone, 4, 3) & _
"-" & Right(Phone, 4)
End Select
Exit Function
ConvertPhone_err:
MsgBox CStr(Error) & " " & Error(Err)
Exit Function
End Function
[/align]


און לייג דעס אריין אין די קווערי
[align=left]
NewPhone: ConvertPhone([OriginalNumber])
[/align]
הק' משה אהרן (וועבסייט - פראפייל)
לערנט אייך אויס צו שווימען אין די טיפע וואסערן פון קאמפיוטערס

די פאקט איז, אז מ'לערנט, קען מען, און אז נישט...

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11185
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דינסטאג ינואר 15, 2008 2:04 pm

א ריזיגען שכח די פאקט עס ארבעט וואונדערבאר

אזוי ווי אלע וואס האבן נישט קיין עריע קאוד זענען 845 האב איך דאס געטוישט אזוי
Case 7
ConvertPhone = "(845) " & Left(Phone, 3) & _

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11185
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דאנארשטאג ינואר 01, 2009 4:34 pm

שכח די פאקט פארן קאוד נאכאמאל עס איז מיר אסאך מאל ציניץ געקומען

בעל בית
שר העשר
תגובות: 48
זיך איינגעשריבען אום: דינסטאג ינואר 06, 2009 4:46 pm

תגובהדורך בעל בית » מיטוואך מאי 20, 2009 2:23 pm

איינער קען מיך האלפן?

איך האב געמאכט א ליסט נעמען מיט מענטשן צוזאמען מיט אדדרעס אין איין קאלם אבער צווישן די נאמען און די אדדרעס איז דא א פינטעל און ווי אזוי קען איך צוטיילען צו צוויי עקסערע קאלם?

אוועטאר
שטרויזאק
שר חמישים ומאתים
תגובות: 495
זיך איינגעשריבען אום: מיטוואך סעפטעמבער 10, 2008 9:24 am

תגובהדורך שטרויזאק » מיטוואך מאי 20, 2009 3:03 pm

סעלעקט די קאלום.
גיי צו דעטע>טעקסט טו קאלומס
    סעלעקט "דילימיטעד"
    נעקסט
    טשעק "אדער"
    לייג אריין א פינטל אין די ווייסע באקס לעבן "אדער"
    פיניש

הצלחה, לאז וויסן אויב עס ארבעט.
איך גלייך צו בארגן געלט פון א פעססימיסט, ער ווייסט שוין אז איך גיי קיינמאל נישט באצאלן...


צוריק צו “מייקראסאפט עקסעל / עקסעס”

ווער איז אונליין

באנוצערס וואס דרייען זיך דא: נישטא קיין איינגעשריבענע באנוצערס און 2 געסט