صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 11

موضوع: توابع تبدیل متغیرها در vba

  1. #1


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    توابع تبدیل متغیرها در vba

    درود

    یکی از دوستان سوالی طرح کردند در مورد محاسبات در vba ، نکته ای که باید توجه کرد مقادیر وارد شده در تکست باکس ها به صورت استرینگ هست و غیر قابل محاسبه و باید به integer یا double تبدیل بشن تا قابل محاسبه بشن ، به طور کلی توابع تبدیل مقادیر به یکدیگر به شرح زیر هستند.

    کد PHP:

    CBool
    (expression)
    CByte(expression)
    CChar(expression)
    CDate(expression)
    CDbl(expression)
    CDec(expression)
    CInt(expression)
    CLng(expression)
    CObj(expression)
    CSByte(expression)
    CShort(expression)
    CSng(expression)
    CStr(expression)
    CUInt(expression)
    CULng(expression)
    CUShort(expression 
    )
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.




  2.  

  3. #2


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    172
    امتیاز
    202
    سپاس
    41
    سپاس شده
    78 در 46 پست
    تعیین سطح نشده است

    به نظرمن نیازی به تبدیل نیست.درمحاسبات بین تکست باکس ولیبل ها حذف وایجاد فرمت مقادیر کفایت کرده وجواب میده
    کد PHP:
     Label(i).caption=format(label1.caption),"")+format(label2.caption),""
    ویرایش توسط ~M*E*H*D*I~ : 2014/05/30 در ساعت 10:31


  4. #3


    آخرین بازدید
    2023/09/01
    تاریخ عضویت
    November 2019
    محل سکونت
    ساری
    نوشته ها
    142
    امتیاز
    25
    سپاس
    59
    سپاس شده
    15 در 11 پست
    سطح اکسل
    38.00 %

    سلام و عرض ادب خدمت دوستان عزیز و اعضای محترم
    در خصوص تبدیل
    حروف عربی "ی" و "ک" به فارسی
    کاربر حرفه ایی و عزیز جناب "iranweld
    "
    زحمت کشیدند کد
    کد:
    Sub arabibefarsi()  
        
        For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
            cell.Value = WorksheetFunction.Trim(cell)
        
        
    
    
        Cells.Replace What:=ChrW(1610), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            
        Next cell
        
     
    
    
     End Sub


    رو در اختیار بنده گذاشتند

    سوالم اینه اگه بخوام
    این رو
    محدود به یک ستون کنم
    یا بست بدم به
    کل ورکبوک

    چه سطری رو باید چه تغییری بدم

    فکر میکنم کند هست میخوام محدودش کنم تا سریع تر بشه
    و در انتهای کار که فرصت هست برای کل ورکبوک انجام بشه



    ***سوال دیگه اینه که چجوری میتونم اسم ماژول رو در صفحه ویزوال عوض کنم

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  12.jpg
مشاهده: 6
حجم:  233.4 کیلو بایت
    ویرایش توسط armey : 2021/10/29 در ساعت 19:48

  5. سپاس ها (1)


  6. #4


    آخرین بازدید
    2023/09/01
    تاریخ عضویت
    November 2019
    محل سکونت
    ساری
    نوشته ها
    142
    امتیاز
    25
    سپاس
    59
    سپاس شده
    15 در 11 پست
    سطح اکسل
    38.00 %

    عرض ادب خدمت دوستان
    با راهنمایی های عضو حرفه ایی انجمن "iranweld"


    کدی جهت

    انتقال مقداری (copy>>>paste value)
    اطلاعات

    سطرهای یک شیت
    به شرط حاوی اطلاعات بودن سلولی مشخص(از نظر مقداری غیر از صفر)
    ***نکته اینکه اطلاعات سلول مورد نظر با فرمول لوکعاپ وارد می شود

    به انتهای شیت دیگری


    تهیه شد
    کد:
    Sub copyErsalruzbiKol()
    
    Z = Sheet43.Cells(Sheet43.Rows.Count, "A").End(xlUp).Row
    o = Sheet18.Cells(Sheet18.Rows.Count, "A").End(xlUp).Row + 1
    
    
    For o = 2 To Z
    
    
    If Sheet43.Range("i" & o) <> "0" Then
    
    
    Sheet43.Range("A" & o & ":w" & o).Copy Destination:=Sheet18.Range("A" & o)
    
    
    o = o + 1
    
    
    
    
    End If
    Next
    
    
    Sheet18.Select
    
    
    End Sub
    نام شیتها رو تغییر دادم
    فایل اصلی بسیار حجیم بود
    فایل نمونه ایی درست کردم دوست عزیز و عضو حرفه ایی iranweld
    کد را تهیه نمود و در فایل تست کد کار می کرد

    منتهی اطلاعات شیتهارو تغییر دادم
    و کد کار نمیکنه
    کدی که بالا نوشتم تغییر کرده کد اصلی است
    که کار نمیکنه

    فایل رو هم پیوست میکنه
    فقط نکته اینکه
    در شیت ارسال روز اطلاعات تماما با فرمول لوکعاپ فراخوانی میشود که برای سبک شدن فرمول ها پاک شده

    /home/uplooder/public_html/cgi-bin/script-logs.log
    Address


    با سپاس و تجدید احترام

  7. #5


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    فایل شما قابل دانلود نیست

    - - - Updated - - -

    نقل قول نوشته اصلی توسط armey نمایش پست ها
    سلام و عرض ادب خدمت دوستان عزیز و اعضای محترم
    در خصوص تبدیل
    حروف عربی "ی" و "ک" به فارسی
    کاربر حرفه ایی و عزیز جناب "iranweld
    "
    زحمت کشیدند کد
    کد:
    Sub arabibefarsi()  
        
        For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
            cell.Value = WorksheetFunction.Trim(cell)
        
        
    
    
        Cells.Replace What:=ChrW(1610), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            
        Next cell
        
     
    
    
     End Sub


    رو در اختیار بنده گذاشتند

    سوالم اینه اگه بخوام
    این رو
    محدود به یک ستون کنم
    یا بست بدم به
    کل ورکبوک

    چه سطری رو باید چه تغییری بدم

    فکر میکنم کند هست میخوام محدودش کنم تا سریع تر بشه
    و در انتهای کار که فرصت هست برای کل ورکبوک انجام بشه



    ***سوال دیگه اینه که چجوری میتونم اسم ماژول رو در صفحه ویزوال عوض کنم

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  12.jpg
مشاهده: 6
حجم:  233.4 کیلو بایت

    محدوده رنج رو به ستون مورد نظر تغییر بدید

    کد:
    Sub arabibefarsi()
    
    Set Rng = Sheet1.Range("A1:A10000")
        
        For Each cell In Rng
        
            cell.Value = WorksheetFunction.Trim(cell)
       
        Cells.Replace What:=ChrW(1610), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            
        Next cell
    
    
     End Sub


  8. #6


    آخرین بازدید
    2023/09/01
    تاریخ عضویت
    November 2019
    محل سکونت
    ساری
    نوشته ها
    142
    امتیاز
    25
    سپاس
    59
    سپاس شده
    15 در 11 پست
    سطح اکسل
    38.00 %

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    با سلام

    فایل شما قابل دانلود نیست

    - - - Updated - - -




    محدوده رنج رو به ستون مورد نظر تغییر بدید

    کد:
    Sub arabibefarsi()
    
    Set Rng = Sheet1.Range("A1:A10000")
        
        For Each cell In Rng
        
            cell.Value = WorksheetFunction.Trim(cell)
       
        Cells.Replace What:=ChrW(1610), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            
        Next cell
    
    
     End Sub
    فایل خدمت شما دوست عزیز


  9. #7


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    چون شیت و ستون مورد نظر مشخص نبود مطابق تصویر تغییرات مورد نظر را اعمال کنید

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  Untitled.png
مشاهده: 28
حجم:  73.0 کیلو بایت
    ویرایش توسط iranweld : 2021/10/30 در ساعت 10:35

  10. سپاس ها (2)


  11. #8


    آخرین بازدید
    2023/09/01
    تاریخ عضویت
    November 2019
    محل سکونت
    ساری
    نوشته ها
    142
    امتیاز
    25
    سپاس
    59
    سپاس شده
    15 در 11 پست
    سطح اکسل
    38.00 %

    نقل قول نوشته اصلی توسط iranweld نمایش پست ها
    با سلام

    چون شیت و ستون مورد نظر مشخص نبود مطابق تصویر تغییرات مورد نظر را اعمال کنید

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  Untitled.png
مشاهده: 28
حجم:  73.0 کیلو بایت
    خیلی لطف کردید دوست عزیز
    تاپیک سوال رو چون خودم زدم "حل شد" بسته شد

    تو اجرا دوتا مشکل برام پیش اومد

    بابت تبدیل حروف عربی به فارسی که با توضیح شما حل شد
    جهت تکمیل و استفاده دوستان فایل رو پیوست میزارم




    از بابت انتقال اطلاعات به شیت دیگرد
    هم فایل خدمت شما :



    * نام ماژول های ایجاد شده رو چجوری باید تغییر بدم ایجاد که میشه به ترتیب شماره میشه نامش ولی گزینه ایی برای تغییر نامش پیدا نمی کنم

  12. #9


    آخرین بازدید
    2023/09/01
    تاریخ عضویت
    November 2019
    محل سکونت
    ساری
    نوشته ها
    142
    امتیاز
    25
    سپاس
    59
    سپاس شده
    15 در 11 پست
    سطح اکسل
    38.00 %

    کد تغییر حروف "ی" و "ک" عربی به فارسی

    کد تغییر اینه :

    کد:
     Cells.Replace What:=ChrW(1610), Replacement:=ChrW(1740), LookAt:=xlPart, SearchOrder _        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        Cells.Replace What:=ChrW(1603), Replacement:=ChrW(1705), LookAt:=xlPart, SearchOrder _
            :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    این قسمت مربوط به آدرس دهی است :
    کد:
               z1 = Sheet18.Cells(Sheet18.Rows.Count, "A").End(x1up).Row
        Set Rng = Sheet18.Range("A1:A" & z1)
        For Each cell In Rng
        cell.Value = whorksheetFunction.Trim(cell)
    *z1 تو خط های کد چه کاری انجام میده؟

  13. #10


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    شماره سطر آخرین سلول دارای دیتا را تو ستون مورد نظر میده



صفحه 1 از 2 12 آخرینآخرین

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. ایجاد فرم متغیر
    توسط Hesam2 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 13
    آخرين نوشته: 2013/05/02, 08:22
  2. تغیر همیشگی آیکن فایل های اکسل
    توسط امیر رضا دهقان در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/12/30, 01:53
  3. افزایش درصد با تغیر همان سلول
    توسط arashdj در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 2
    آخرين نوشته: 2012/12/01, 18:12
  4. تغیر رنگ سلول
    توسط ghxxxx در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 13
    آخرين نوشته: 2012/05/23, 09:18
  5. شمارش یه متغیر خاص
    توسط mohoba در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 5
    آخرين نوشته: 2012/04/26, 21:43

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

تبدیل متغیر در vba

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است