کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

عناوین یادداشت‌ها

  • UniqueValue یکشنبه 27 مرداد 1398 20:50
    Arr Can Be Array Or Rang خروجی میتواند آرایه ای از ولیوهای بدون تکرار باشد Dim E As Variant Dim Unique() As Variant Dim NotMatch As Boolean Dim Num As Long Num=0 ( For Each E In Arr ' ( Array Or Range NotMatch=True For i=1 To Num if E=U ique(i) Then NotMatch=False goto NextPos End If Next NextPos : ' AddItem if...
  • UserControl در اکسل ... کد نویسی یکشنبه 27 مرداد 1398 19:32
    منبع زیر از سایت خارجی است و طبق نگاه اجمالی و کدنویسی VBA باید درست باشد. درتابع زیر چنانچه در اولین کنترل که editstudent1 است اینتر زده شود تابع Findit فایرشده و مقدارآن در متغیر تعریف شده ی Search را در رنج A پیدا میکند ( متد Find ) ، اگر پیداشد با لوپ زدن در کنترل ها که شروع آن از 2 است و به 13 ختم میشود ( منظور...
  • نمایش BITMAP نزدیک به منوآیتم ( سایت آفیس NEXT MENU ITEM ) شنبه 26 مرداد 1398 23:47
    این ویژگی ( Feature ) تست نشده و فقط طبق سند آفیس و جذاب بودنش در این صفحه درج شده . To add a new bitmap item to a menu, use the MF_BITMAP flag with the InsertMenu or AppendMenu function. MF_BITMAP=&H4 'Uses a bitmap as the menu item. The lpNewItem parameter contains a handle to the bitmap. InsertMenuA...
  • CHOOSE - OFFSET - INDEX شنبه 26 مرداد 1398 21:21
    (CHOOSE(position in list,item1,item 2, etc= تابع Choose طبق عدد 3 ( موقعیت در لیست ) آیتم 3 را در نظر میگیرددکه C1:C3 است و تابع SUM هم این رنج را جمع میزند. ((SUM(CHOOSE(3,A1:A3,B1:B3,C1:C3,D1:D3= returns the sum of cells C1 to C3 محتویات C1 را برمیگرداند که آرگومان دوم ردیف ( 0 ) به سمت پائین و آرگومان سوم ستون ( 2...
  • چارت پویا و استفاده از چک باکس ( مقایسه ی مالی با سال های قبل ) شنبه 26 مرداد 1398 19:08
    کپی کردن دیتای جدول بالا به پایین و نامگذاری چک باکس ها به 2011 و 2012 و لینک به سل هایی که بین دوتا جدول است و True نوشته شده در جدول پایین بجای دیتاهای 2011 و 2012 باید نوشته شود اگر C7=True,C3,False و برای 2012 هم همینطور و چارت کشیده شود که باید دیتا سورس هاعوض شود.
  • تابع CHOOSE در اکسل ( انتخاب از چندین انتخاب در آرگومانهای ولیو ) شنبه 26 مرداد 1398 17:38
    یک تا 254 ولیو ( منظورتعداد آرگومانهای ولیو) 80=23+45+12 در تصویر پایین براساس آرگومان اول تابع که Index_Num است ( طبق سل B1 ) جمع سومین ولیو با تابع SUM که A1:A3 است ( 10+11+12=33 )برگشت داده میشود.
  • آیدی کنترل ها در MessageBox شنبه 26 مرداد 1398 17:06
    https://www.cadsharp.com/docs/Win32API_PtrSafe.txt IDABORT 3 The Abort button was selected. IDCANCEL 2 The Cancel button was selected. IDCONTINUE 11 The Continue button was selected. IDIGNORE 5 The Ignore button was selected. IDNO 7 The No button was selected. IDOK 1 The OK button was selected. IDRETRY 4 The Retry...
  • تابع OFFSET (احصاء رفرنس جدید باتوجه به جابجایی آن توسط آرگومانها ) جمعه 25 مرداد 1398 23:30
    مرجع یا رفرنسی به محدوده ای که تعداد مشخصی از ردیف ها و ستون ها از یک سلول یا دامنه سلول است را برمی گرداند. مرجع برگشتی می تواند یک سلول واحد یا طیف وسیعی از سلول باشد. می توانید تعداد ردیف ها و تعداد ستون هایی که باید برگردانید را مشخص کنید. ([OFFSET(reference, rows, cols, [height], [width آرگومان دوم و سوم که...
  • چارت پویا در اکسل جمعه 25 مرداد 1398 22:24
    در تصویر زیر در سل B12 از Data-Validation برای ماه ها استفاده شده . سل Q4 را برابر سل B12 یعنی لیست کشوئی اعمال شده توسط پنجره ی Data Valudation Cell Q4 = B12 CELL Q5=INDEX($C$4:$N$9,MATCH(P5, ( $B$5:$B$9,0),MATCH($Q$4,$C$4:$N$9,0,
  • ساخت نمودارپویا در اکسل ( استفاده از جدول !!! ) جمعه 25 مرداد 1398 20:18
    Dynamic Chart Range تبدیل رنج به جدول و انتخاب آن ............ .................... ............... ............
  • تابع DSUM در اکسل جمعه 25 مرداد 1398 19:35
    جمع فروش ( در رنج مشخص شده ی بالا ) به شرطی که Quarter آن بزرگتر از 2 ( خود 2 را شامل نمیشود ) و Area دقیقا برابر North باشد. D10, D11, D14 & D15, and therefore returns . the value $1,210,000 F G 1 Quarter Area 2 >2 North 3 =DSUM( A1:D17, "Sales", F1:G2 ) جمع فروش به شرطی که Quarter آن 3 و Sales Rep...
  • متد حذف تکرار در شی Range / استفاده از Advanced Filter و COUNTIF جمعه 25 مرداد 1398 19:17
    Example The following code sample removes duplicates with the first 2 columns. VB ActiveSheet.Range( "A1:C100" ).RemoveDuplicates Columns:=Array( 1 , 2 ), Header:=xlYes
  • Else..If در محیط VBE اکسل جمعه 25 مرداد 1398 17:41
  • ساخت ماکرو باتن برای انجام فیلترها در اکسل ( AutoFilter ) جمعه 25 مرداد 1398 17:11
    VBA Macro Buttons for Filters in Excel July 19, 2018 Jon Acampora 13 comments
  • لینک فرم ها به یکدیگر در اکسس جمعه 25 مرداد 1398 15:40
    نوشتن کد باز کردن فرم دیگر در رویداد کلیک Id و تنظیم پراپرتی Is Hyperlink در تب Format به Yes in the Property Sheet, click the Format tab, and set . the Display As Hyperlink property to Always
  • برگشت یک مقدار یا ارجاع به یک مقدار از داخل جدول یا محدوده در اکسل ( تابع INDEX ) پنج‌شنبه 24 مرداد 1398 18:58
    [INDEX(reference, [row_num],[column_num],[area_num ((INDEX($B$3:$E$10,MATCH($G$5,$A$3:$A$10,0),MATCH($H4,$B2:$E$2,0= میانگین Area_Num که در B1 دو تعیین شده ( 4 2 + 4 , 8 0 0 + 1 0 + 3 , 1 2 6 + 3 , 6 2 9 + 9 4 + 1 , 5 7 8 + 1 , 1 9 0 + 5 4 ) ÷ 1 1=1320.2727
  • جستجوی افقی + موقعیت مقدار پیداشده در اکسل ( Hlookup+Match ) پنج‌شنبه 24 مرداد 1398 17:48
    در تصویر پایین آرگومان Match Type که آپشنال یا انتخابیست گویای این است که اگر مقدار نداشته باشد دیفالت 1 در نظر گرفته و برگشتی تابع ( اگر مورد جستجو عدد باشد ) بزرگترین عددی است که مساوی یا کوچکتر از مقدار جستجو باشد. اگر صفر در نظر گرفته شود که در صورت پیدا کردن همان مقدار در جدول مورد جستجو تابع درست است وگرنه N/A...
  • جستجوی افقی در اکسل ( HLookup ) پنج‌شنبه 24 مرداد 1398 16:47
    Range_lookup Optional. A logical value that specifies whether you want HLOOKUP to find an exact match or an approximate match. If TRUE or omitted, an approximate match is returned. In other words, if an exact match is not found, the next largest value that is less than lookup_value is returned. If FALSE, HLOOKUP will...
  • فاکتور خودکار در اکسل ( VlookUp, Data-Validation ) پنج‌شنبه 24 مرداد 1398 16:05
    Automated Invoice
  • فرم ورود داده در اکسل ( تبدیل رنج به جدول ) پنج‌شنبه 24 مرداد 1398 15:57
  • فیلتر داده بر اساس مقدار سل ( لیست کشویی ) - بررسی اعتبارداده ( Data-Validation ) پنج‌شنبه 24 مرداد 1398 14:05
    Filter Data based on a Cell Value استخراج از سایت خارجی
  • تنظیم عنوان یا تکست کنترل در دیالوگ باکس #32770 چهارشنبه 23 مرداد 1398 23:09
    GetDlgCtrlID Retrieves the identifier of the specified control. GetDlgItem Retrieves a handle to a control in the specified dialog box.
  • MENUBARINFO چهارشنبه 23 مرداد 1398 19:25
    Type rect Left As Long Top As Long Right As Long Bottom As Long End Type Type MENUBARINFO cbSize As Long rcBar As rect hMenu As Long hwndMenu As Long fBarFocused As Boolean fFocused As Boolean End Type Public Const OBJID_MENU As Long = &HFFFFFFFD Pubic Const OBJID_SYSMENU As Long = &HFFFFFFFF Dim mbi as...
  • تغییر کپشن و ترتیب چیدمان ( راست ) منوی سیستمی چهارشنبه 23 مرداد 1398 13:00
    MIIM_STRING = 64 MIIM_FTYPE = 256 MFT_RIGHTORDER = 0x2000 MF_BYPOSITION = 0x00000400 For j = 0 To MenuCount - 1 With mii (BuffLen = GetMenuStringA(hMenu, j, Buff, Len(Buff) + 1, &H400 (txt = Left$(Buff, BuffLen (cbSize = Len(mii fMask = 64 Or 256 fTyp = &H2000 dwtypedata = arr(j) 'txt cch = Len(.dwtypedata) +...
  • گزینه های پنجره ی باز شده در اکسس سه‌شنبه 22 مرداد 1398 19:25
    Overlapped Tabbed
  • غیرفعال کردن ( دورزدن ) صفحه ی شروع آفیس سه‌شنبه 22 مرداد 1398 19:03
    ByPass Start Screen
  • کپی تکست استرینگ آیتم منو داخل بافر مشخص شده سه‌شنبه 22 مرداد 1398 17:50
    موارد ستاره دار مهم هستند که اگر Fail دهد جواب صفر است و اگر cchMax صفر در نظر گرفته شود تابع طول استرینگ را بر خواهد گرداند درصورتیکه که Fail ندهد یعنی مقدار برگشتی صفر نشود ***cchMax : If nMaxCount is 0, the function returns the length of the menu string ***Return Value If the function succeeds, the return value...
  • ارسال پیام به تکست باکس و کلیک روی باتن در سایر برنامه ها سه‌شنبه 22 مرداد 1398 17:32
    (&Retval=SendMessage(SendTxtHwnd,WM_SETTEXT, 0 (ByVal MyString "FindWindowEx ----->>> "Button &RetVal = SendMessage(SendButtonHwnd, BM_CLICK,0 (&0
  • بعضی ازکلاس های فرم اکسس سه‌شنبه 22 مرداد 1398 17:18
    البته هندل همه کنترل ها را نمیشود بدست آورد فقط چیزی که فعال باشد یا Active ولی در برنامه های ساخته شده ویندوزی هر کدام از کنترل ها دارای آیدی خودش است مثل دیالوگ باکس دیباگ اکسس ( که کلاس سیستم را داراست ) که تمام باتن ها آیدی خودشون رو دارا هستند. class name for Edit controls in Access=Okttbx class name for an...
  • خالی کردن حافظه مشخص شده سه‌شنبه 22 مرداد 1398 15:34
    GlobalFree function globalfree globalallo c In this article Syntax Parameters Return Value Remarks Requirements See Also Frees the specified global memory object and invalidates its handle (pSD=GlobalAlloc(GHND,Len(MyString)+1 (GlobalFree(pSD Dim pSD As LongPtr $MyString "MyString="MyClose...