پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: انیمیشن در اکسل (ایجاد آبجکت های متحرک در اکسل)

  1. #1


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9051
    سپاس
    5,989
    سپاس شده
    7,387 در 2,451 پست

    Cap انیمیشن در اکسل (ایجاد آبجکت های متحرک در اکسل)

    سلام دوستان

    در این تاپیک میخوام یک آموزش خیلی حرفه ای از کدنویسی vba رو خدمتتون توضیح بدم

    شما با کمک این کد قادرید آبجکت های متحرک بسازید و در واقع آبجکت های داخل فایلتون رو متحرک کنید یا به عبارتی انیمیشن ایجاد کنید. در این فایل که به پیوست تقدیم میکنم از قابلیت تایمر استفاده شده و از دو api ویندوز کمک گرفته شده.

    بخش اصلی کد مربوط به فایل رو اینجا میذارم:

    کد:
    Option Explicit
    Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
    Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
    Public TimerID1 As Long
    
    Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
        Static t As Single, t2 As Single, t3 As Single
        Dim y As Single
        Dim x As Single
        Dim x2 As Single
        Dim v As Single
    
        On Error Resume Next
        t = t + 0.5
        t2 = t2 + 0.5
        t3 = t3 + 0.5
        y = -3.8 * t ^ 2 + 65 * t
        x = -200 + t2 * 3.5
        x2 = Range("b1").Left + 10 * t3
        If y < 0 Then
        t = 0
        y = 0
        End If
        If x > Range("L4").Left Then
        x = -200
        t2 = 0
        End If
        If x2 > Range("k1").Left Then
            t3 = 0
        End If
        Sheet1.Shapes("Ball").Top = (Range("f30").Top - Sheet1.Shapes("Ball").Height) - y
        Sheet1.Shapes("Ball").Left = x2
        Sheet1.Shapes("Cloud1").Left = x
        Sheet1.Shapes("Cloud2").Left = x + 120
        Sheet1.Shapes("Cloud3").Left = x + 210
        If Rnd < 0.5 Then
        With Sheet1.Shapes("Sun").GroupItems(1).Fill
            .ForeColor.SchemeColor = IIf(.ForeColor.SchemeColor = 51, 13, 51)
            .Visible = msoTrue
            .Solid
        End With
        End If
    End Sub
    
    Sub KillTmr(ByRef ID As Long)
        If ID <> 0 Then
            KillTimer 0&, ID
            ID = 0
        End If
    End Sub

    توجه داشته باشید که این فایل یک نمونه خیلی خوب برای اینه که بدونیم با کمک vba چه کارهایی میشه در اکسل انجام داد. یک توپ و سه ابر متحرک و یک خورشید درخشان مثال هایی هست که در این فایل به خوبی ازش استفاده شده. حتما ایده های قشنگی از این فایل خواهید گرفت


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

نام:  animation in excel.png
مشاهده: 37
حجم:  128.7 کیلو بایت


    فايل هاي پيوست شده فايل هاي پيوست شده


  2.  

  3. #2


    آخرین بازدید
    4 هفته پیش
    تاریخ عضویت
    January_2015
    نوشته ها
    49
    امتیاز
    20
    سپاس
    0
    سپاس شده
    10 در 8 پست

    سلام دوست عزیز
    باید چیز جالبی باشه ولی این برای ویندوز 32 بیت نوشته شده و در ویندوز 64 بیت erroe میده
    یه لطفی کن هم نسخه 64 بیتی رو بزارید و هم اینکه نحوه ی تبدیل 32 به 64 رو توضیح بدید
    مرسی

  4. #3


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9051
    سپاس
    5,989
    سپاس شده
    7,387 در 2,451 پست

    نقل قول نوشته اصلی توسط zxcvbn نمایش پست ها
    سلام دوست عزیز
    باید چیز جالبی باشه ولی این برای ویندوز 32 بیت نوشته شده و در ویندوز 64 بیت erroe میده
    یه لطفی کن هم نسخه 64 بیتی رو بزارید و هم اینکه نحوه ی تبدیل 32 به 64 رو توضیح بدید
    مرسی
    سلام عزیز
    من سیستمم ۶۴ بیتی هست و بدون ارور اجرا میشه. چه خطایی میده؟ دیباگ کنید ببینید کدوم خط ارور میده


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

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

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

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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

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