פיתוח תוכנה ובניית אתרים תוכנה לעסקים






פיתוח תוכנה ובניית אתרי אינטרנט
תוכנות לעסקים פיתוח תוכנה ובניית אתרים
התחברות לקוחות
כניסת לקוחות

 
 
כניסת לקוחות

  שכחת את הסיסמה?
תוכנות לדוגמא



 
חברת PC GROUP מתמחה במתן פתרונות מיחשוב מתקדמים לעסקים ולפרטיים. פיתוח תוכנות תפורות ומותאמות לעסקים שונים. בניית אתרי תדמית, אתרי מכירות, אתרים פנימיים לניהול עסק ותחזוקת מערכות מחשבים בעסק. אנו מתמסרים ללקוחותינו ומשתדלים בכל כוחנו לספק את המוצר הטוב ביותר במחירים הוגנים.
יצירת קשר מידע על תוכנה 052-663-5054
PC GROUP
  ניתן ליצור קשר בטלפון בין השעות 19:00 - 8:00
מעבר לשעות הנ"ל ניתן ליצור קשר דרך האתר

  טופס יצירת קשר dot   כתובת מייל dot   קבל הצעת מחיר dot
מחשבמידע על תוכנה

Format excel's cells as HTML with VBA
 
Private Sub Worksheet_Change2(ByVal Target As Range, ByVal sht As
 Worksheet)
 
     Dim objData As DataObject ' Set a reference to MS Forms 2.0'
     Dim sHTML As String
     Dim sSelAdd As String
 
     Application.EnableEvents = False
 
             objData = New DataObject
             sHTML = Target.Text
             objData.SetText sHTML
             objData.PutInClipboard
             sht.PasteSpecial Format:="Unicode Text"
     
     Application.EnableEvents = True
 
 End Sub
 
 Sub test()
    
     Dim rng As Range
     Set rng = ActiveSheet.Range("F15") 'cell to change
     
     Worksheet_Change2 rng, ActiveSheet End Sub


I guess it shouldn't be too difficult to tweak it a bit that it would work for entire worksheet and not only one specific cell


Name: Shay
Comment: You might also need to wrap this script with 
 If Target.Cells.Count = 1 Then
        If LCase(Left(Target.Text, 6)) = "<html>" Then


    End If
    End If
just before the objData = New DataObject


Post a comment
Your name:

Your comment:


 

מידע על תוכנה
מידע על תוכנה
בית תוכנה לעסקים ולפרטיים