Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

3 Ağustos 2011 Çarşamba

vsFlexArray Explorer [4]

'UserForm1

'A. Available References List
'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'5) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\Windows\SysWOW64\FM20.DLL
'6) Name: vsFlexLib, Description: :-) VideoSoft vsFlex3 Controls, FullPath: C:\Windows\SysWOW64\VSFLEX3.OCX
'7) Name: MSComctlLib, Description: Microsoft Windows Common Controls 6.0 (SP6), FullPath: C:\Windows\SysWOW64\MSCOMCTL.OCX
'B. Available Tools List
'1) İmage1, Label1, Label2
'2) vsFlexArray1
'3) ImageList1
Option Explicit
Private i As Single, ii As Single
Private Tarih As Date
Private Hafta As Double
Private Tarihler()
Private Veriler1()
Private Veriler2()
Private Renk As Long
Private Terim As String
Dim EkranTipi As New Class1
Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] vsFlexArray Explorer [4]."
Application.Visible = False
Call Tarih_Kur
Call Veri_Kur1
Call Veri_Kur2
Call Ekran_Duzenle
Call Create_vsFlexArray
Set EkranTipi.Ekran1 = Me
End Sub
Private Sub UserForm_Activate()
On Error Resume Next
Me.Move (Application.Width - Me.Width) / 2, (Application.Height - Me.Height) / 2
End Sub
Private Sub UserForm_Resize()
On Error Resume Next
With vsFlexArray1
.Top = 36
.Left = 6
.Height = Me.InsideHeight - .Top - 6
.Width = Me.InsideWidth - .Left - 12
End With
Me.Move (Application.Width - Me.Width) / 2, (Application.Height - Me.Height) / 2
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Close #1
Application.Visible = True
End Sub
Private Sub Create_vsFlexArray()
On Error Resume Next
With vsFlexArray1
For i = .FixedRows To 100 + .FixedRows - 1
.TextMatrix(i, 1) = Veriler1(i - .FixedRows + 1, 1)
.TextMatrix(i, 2) = Veriler1(i - .FixedRows + 1, 2)
.TextMatrix(i, 3) = Veriler1(i - .FixedRows + 1, 3)
.TextMatrix(i, 4) = Veriler1(i - .FixedRows + 1, 4)
.TextMatrix(i, 5) = Veriler1(i - .FixedRows + 1, 5)
For ii = 1 To Hafta
.TextMatrix(i, 5 + ii) = Veriler2(i - .FixedRows + 1, ii)
Next ii
Next i
.Subtotal flexSTClear
For i = 5 To (5 + Hafta)
.Subtotal flexSTSum, 0, i, , &H4040&, vbWhite, True, "Genel Toplam", True
.Subtotal flexSTSum, 1, i, , &H8080&, vbWhite, True, "Ana Grup", True
.Subtotal flexSTSum, 2, i, , &HC0C0&, vbWhite, True, "Alt Grup", True
.Subtotal flexSTSum, 3, i, , &HD0D0&, vbWhite, True, "Detay Grup", True
Next i
For i = 0 To 2
.MergeRow(i) = True
.MergeCells = flexMergeRestrictColumns
Next i
For i = 0 To 5
.MergeCol(i) = True
.MergeCells = flexMergeRestrictColumns
Next i
.OutlineBar = flexOutlineBarComplete
.Outline 6
Call Renklendir
VBA.Kill ThisWorkbook.Path & "\vsBackUpFile.txt"
Close #1
Open ThisWorkbook.Path & "\vsBackUpFile.txt" For Random As #1
.SaveGrid ThisWorkbook.Path & "\vsBackUpFile.txt", flexFileAll
Close #1
End With
End Sub
Private Sub Renklendir()
On Error Resume Next
With vsFlexArray1
For i = .FixedRows To (.Rows - 1)
.Col = 6: .Row = i: Renk = .CellBackColor
If Renk = 16448 Then
.Col = 1: .Row = i + 1: Terim = .Text
.Col = 1: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i: .Text = "Genel Toplam"
.Col = 2: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
End If
If Renk = 32896 Then
.Col = 1: .Row = i + 1: Terim = .Text
.Col = 1: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i: .Text = Terim
.Col = 2: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i + 1: .CellBackColor = Renk: .CellForeColor = vbWhite
End If
If Renk = 49344 Then
.Col = 2: .Row = i + 1: Terim = .Text
.Col = 2: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 2: .Row = i: .Text = Terim
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 1: .Row = i + 1: .CellBackColor = Renk: .CellForeColor = vbWhite
End If
If Renk = 53456 Then
.Col = 3: .Row = i + 1: Terim = .Text
.Col = 3: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 3: .Row = i: .Text = Terim
.Col = 4: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
.Col = 5: .Row = i: .CellBackColor = Renk: .CellForeColor = vbWhite
End If
Next i
End With
End Sub
Private Sub Ekran_Duzenle()
On Error Resume Next
With Me
.BackColor = vbWhite
.Height = 240
.Width = 360
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = True
.SpecialEffect = fmSpecialEffectFlat
With Image1
.Top = 6
.Left = 6
.Height = 24
.Width = 24
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.Picture = Resim(URL2)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
End With
With Label1
.Left = 36
.Top = 6
.Height = 12
.Width = 420
.Caption = "Mustafa ULUSARAÇ"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue
End With
With Label2
.Left = 36
.Top = 18
.Height = 12
.Width = 420
.Caption = "01ulusarac@superonline.com"
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.BackStyle = fmBackStyleTransparent
.Font.Bold = True
.Font.Name = "Arial"
.ForeColor = vbBlue
End With
With vsFlexArray1
.Top = 36
.Left = 6
.Width = Me.InsideWidth - .Left - 12
.Height = Me.InsideHeight - .Top - 6
.Editable = True
.Enabled = True
.ExtendLastCol = False
.ForeColor = vbBlue
.BackColorFixed = &H8000000F
.BackColorBkg = &H8000000F
.BackColor = vbWhite
.Gridlines = flexGridFlat
.MultiTotals = True
.SubtotalPosition = flexSTAbove
.Redraw = True
.Appearance = flexFlat
.AllowBigSelection = True
.AllowSelection = True
.SelectionMode = flexSelectionFree
.BorderStyle = 1
.FixedCols = 1 + 5
.FixedRows = 3
.Cols = 1 + 5 + Hafta + 1
.Rows = 3 + 100
.ColWidth(1) = 60 * 20
.ColWidth(2) = 60 * 20
.ColWidth(3) = 60 * 20
.ColWidth(4) = 60 * 20
For i = 1 To (1 + Hafta)
.ColWidth(4 + i) = 72 * 20
.ColFormat(4 + i) = "#,##0.00"
Next i
.ColWidth(.Cols - 1) = 1
.TextMatrix(0, 1) = "Ana Grup": .TextMatrix(1, 1) = "Ana Grup": .TextMatrix(2, 1) = "Ana Grup"
.TextMatrix(0, 2) = "Alt Grup": .TextMatrix(1, 2) = "Alt Grup": .TextMatrix(2, 2) = "Alt Grup"
.TextMatrix(0, 3) = "Detay Grup": .TextMatrix(1, 3) = "Detay Grup": .TextMatrix(2, 3) = "Detay Grup"
.TextMatrix(0, 4) = "Veriler": .TextMatrix(1, 4) = "Veriler": .TextMatrix(2, 4) = "Veriler"
.TextMatrix(0, 5) = "Toplam": .TextMatrix(1, 5) = "Toplam": .TextMatrix(2, 5) = "Toplam"
For i = 1 To (5 + Hafta)
.FixedAlignment(i) = flexAlignCenterCenter
Next i
For i = 1 To Hafta
.TextMatrix(0, 5 + i) = Tarihler(1, i)
.TextMatrix(1, 5 + i) = Tarihler(2, i)
.TextMatrix(2, 5 + i) = Tarihler(3, i)
Next i
End With
With ImageList1
.ListImages.Add 1, "Simge1", Image1.Picture:
.ImageWidth = 16
'.ListImages.Add 1, LoadPicture("C:\Users\MU\Pictures\Baret_Icon.ico")
End With
End With
End Sub
Sub Tarih_Kur()
On Error Resume Next
Hafta = VBA.DateDiff("w", "01/01/2010", "31/12/2010", vbSunday, vbUseSystem)
ReDim Bellek(1 To 3, 1 To Hafta)
For i = 1 To Hafta
Tarih = VBA.DateValue("01/01/2010") + (i - 1) * 7
Bellek(1, i) = " " & VBA.Year(Tarih) & " "
Bellek(2, i) = VBA.Format(Tarih, "mmmm")
Bellek(3, i) = "W: " & VBA.DatePart("ww", Tarih, vbSunday, vbUseSystem)
Next i
Tarihler() = Bellek()
End Sub
Sub Veri_Kur1()
On Error Resume Next
ReDim Bellek(1 To 100, 1 To 5)
Bellek(1, 1) = "Ana1": Bellek(1, 2) = "Alt1": Bellek(1, 3) = "Detay1": Bellek(1, 4) = "Veri1": Bellek(1, 5) = 5440139.77
Bellek(2, 1) = "Ana1": Bellek(2, 2) = "Alt1": Bellek(2, 3) = "Detay1": Bellek(2, 4) = "Veri2": Bellek(2, 5) = 157039.17 '4327595.23
Bellek(3, 1) = "Ana1": Bellek(3, 2) = "Alt1": Bellek(3, 3) = "Detay1": Bellek(3, 4) = "Veri3": Bellek(3, 5) = 157039.17
Bellek(4, 1) = "Ana1": Bellek(4, 2) = "Alt1": Bellek(4, 3) = "Detay2": Bellek(4, 4) = "Veri4": Bellek(4, 5) = 7536880.97
Bellek(5, 1) = "Ana1": Bellek(5, 2) = "Alt1": Bellek(5, 3) = "Detay2": Bellek(5, 4) = "Veri5": Bellek(5, 5) = 7148163.32
Bellek(6, 1) = "Ana1": Bellek(6, 2) = "Alt1": Bellek(6, 3) = "Detay2": Bellek(6, 4) = "Veri6": Bellek(6, 5) = 6962850.09
Bellek(7, 1) = "Ana1": Bellek(7, 2) = "Alt2": Bellek(7, 3) = "Detay1": Bellek(7, 4) = "Veri7": Bellek(7, 5) = 2431478.5
Bellek(8, 1) = "Ana1": Bellek(8, 2) = "Alt2": Bellek(8, 3) = "Detay1": Bellek(8, 4) = "Veri8": Bellek(8, 5) = 2752954.96
Bellek(9, 1) = "Ana1": Bellek(9, 2) = "Alt2": Bellek(9, 3) = "Detay1": Bellek(9, 4) = "Veri9": Bellek(9, 5) = 4302611.35
Bellek(10, 1) = "Ana1": Bellek(10, 2) = "Alt2": Bellek(10, 3) = "Detay1": Bellek(10, 4) = "Veri10": Bellek(10, 5) = 615222.45
Bellek(11, 1) = "Ana1": Bellek(11, 2) = "Alt2": Bellek(11, 3) = "Detay1": Bellek(11, 4) = "Veri11": Bellek(11, 5) = 7549083.23
Bellek(12, 1) = "Ana1": Bellek(12, 2) = "Alt2": Bellek(12, 3) = "Detay2": Bellek(12, 4) = "Veri12": Bellek(12, 5) = 2815034.39
Bellek(13, 1) = "Ana1": Bellek(13, 2) = "Alt2": Bellek(13, 3) = "Detay2": Bellek(13, 4) = "Veri13": Bellek(13, 5) = 8783845.9
Bellek(14, 1) = "Ana1": Bellek(14, 2) = "Alt2": Bellek(14, 3) = "Detay2": Bellek(14, 4) = "Veri14": Bellek(14, 5) = 8759746.55
Bellek(15, 1) = "Ana1": Bellek(15, 2) = "Alt3": Bellek(15, 3) = "Detay1": Bellek(15, 4) = "Veri15": Bellek(15, 5) = 4412162.3
Bellek(16, 1) = "Ana1": Bellek(16, 2) = "Alt3": Bellek(16, 3) = "Detay1": Bellek(16, 4) = "Veri16": Bellek(16, 5) = 3902914.52
Bellek(17, 1) = "Ana1": Bellek(17, 2) = "Alt3": Bellek(17, 3) = "Detay1": Bellek(17, 4) = "Veri17": Bellek(17, 5) = 4824280.74
Bellek(18, 1) = "Ana1": Bellek(18, 2) = "Alt3": Bellek(18, 3) = "Detay2": Bellek(18, 4) = "Veri18": Bellek(18, 5) = 5265731.81
Bellek(19, 1) = "Ana1": Bellek(19, 2) = "Alt3": Bellek(19, 3) = "Detay2": Bellek(19, 4) = "Veri19": Bellek(19, 5) = 8246021.27
Bellek(20, 1) = "Ana1": Bellek(20, 2) = "Alt3": Bellek(20, 3) = "Detay2": Bellek(20, 4) = "Veri20": Bellek(20, 5) = 1563022.14
Bellek(21, 1) = "Ana1": Bellek(21, 2) = "Alt3": Bellek(21, 3) = "Detay2": Bellek(21, 4) = "Veri21": Bellek(21, 5) = 3227176.67
Bellek(22, 1) = "Ana1": Bellek(22, 2) = "Alt3": Bellek(22, 3) = "Detay2": Bellek(22, 4) = "Veri22": Bellek(22, 5) = 787088.87
Bellek(23, 1) = "Ana2": Bellek(23, 2) = "Alt1": Bellek(23, 3) = "Detay1": Bellek(23, 4) = "Veri23": Bellek(23, 5) = 6465871.33
Bellek(24, 1) = "Ana2": Bellek(24, 2) = "Alt1": Bellek(24, 3) = "Detay1": Bellek(24, 4) = "Veri24": Bellek(24, 5) = 3820106.98
Bellek(25, 1) = "Ana2": Bellek(25, 2) = "Alt1": Bellek(25, 3) = "Detay2": Bellek(25, 4) = "Veri25": Bellek(25, 5) = 8115713.6
Bellek(26, 1) = "Ana2": Bellek(26, 2) = "Alt1": Bellek(26, 3) = "Detay2": Bellek(26, 4) = "Veri26": Bellek(26, 5) = 9229545.59
Bellek(27, 1) = "Ana2": Bellek(27, 2) = "Alt1": Bellek(27, 3) = "Detay2": Bellek(27, 4) = "Veri27": Bellek(27, 5) = 5298211.57
Bellek(28, 1) = "Ana2": Bellek(28, 2) = "Alt2": Bellek(28, 3) = "Detay1": Bellek(28, 4) = "Veri28": Bellek(28, 5) = 7607235.91
Bellek(29, 1) = "Ana2": Bellek(29, 2) = "Alt2": Bellek(29, 3) = "Detay1": Bellek(29, 4) = "Veri29": Bellek(29, 5) = 4013743.4
Bellek(30, 1) = "Ana2": Bellek(30, 2) = "Alt2": Bellek(30, 3) = "Detay1": Bellek(30, 4) = "Veri30": Bellek(30, 5) = 1698734.76
Bellek(31, 1) = "Ana2": Bellek(31, 2) = "Alt2": Bellek(31, 3) = "Detay1": Bellek(31, 4) = "Veri31": Bellek(31, 5) = 7987735.27
Bellek(32, 1) = "Ana2": Bellek(32, 2) = "Alt2": Bellek(32, 3) = "Detay2": Bellek(32, 4) = "Veri32": Bellek(32, 5) = 8408870.7
Bellek(33, 1) = "Ana2": Bellek(33, 2) = "Alt2": Bellek(33, 3) = "Detay2": Bellek(33, 4) = "Veri33": Bellek(33, 5) = 555934.91
Bellek(34, 1) = "Ana2": Bellek(34, 2) = "Alt3": Bellek(34, 3) = "Detay1": Bellek(34, 4) = "Veri34": Bellek(34, 5) = 4744591.71
Bellek(35, 1) = "Ana2": Bellek(35, 2) = "Alt3": Bellek(35, 3) = "Detay2": Bellek(35, 4) = "Veri35": Bellek(35, 5) = 1642341.61
Bellek(36, 1) = "Ana2": Bellek(36, 2) = "Alt3": Bellek(36, 3) = "Detay2": Bellek(36, 4) = "Veri36": Bellek(36, 5) = 2076272.96
Bellek(37, 1) = "Ana2": Bellek(37, 2) = "Alt4": Bellek(37, 3) = "Detay1": Bellek(37, 4) = "Veri37": Bellek(37, 5) = 3262062.07
Bellek(38, 1) = "Ana2": Bellek(38, 2) = "Alt4": Bellek(38, 3) = "Detay1": Bellek(38, 4) = "Veri38": Bellek(38, 5) = 5409135.82
Bellek(39, 1) = "Ana2": Bellek(39, 2) = "Alt4": Bellek(39, 3) = "Detay2": Bellek(39, 4) = "Veri39": Bellek(39, 5) = 6191875.93
Bellek(40, 1) = "Ana2": Bellek(40, 2) = "Alt4": Bellek(40, 3) = "Detay2": Bellek(40, 4) = "Veri40": Bellek(40, 5) = 7043957.71
Bellek(41, 1) = "Ana2": Bellek(41, 2) = "Alt4": Bellek(41, 3) = "Detay2": Bellek(41, 4) = "Veri41": Bellek(41, 5) = 6478211.88
Bellek(42, 1) = "Ana2": Bellek(42, 2) = "Alt4": Bellek(42, 3) = "Detay3": Bellek(42, 4) = "Veri42": Bellek(42, 5) = 7474157.81
Bellek(43, 1) = "Ana2": Bellek(43, 2) = "Alt4": Bellek(43, 3) = "Detay3": Bellek(43, 4) = "Veri43": Bellek(43, 5) = 1304204.46
Bellek(44, 1) = "Ana2": Bellek(44, 2) = "Alt4": Bellek(44, 3) = "Detay3": Bellek(44, 4) = "Veri44": Bellek(44, 5) = 3705153.47
Bellek(45, 1) = "Ana2": Bellek(45, 2) = "Alt4": Bellek(45, 3) = "Detay3": Bellek(45, 4) = "Veri45": Bellek(45, 5) = 3825693.13
Bellek(46, 1) = "Ana3": Bellek(46, 2) = "Alt1": Bellek(46, 3) = "Detay1": Bellek(46, 4) = "Veri46": Bellek(46, 5) = 9653644.56
Bellek(47, 1) = "Ana3": Bellek(47, 2) = "Alt1": Bellek(47, 3) = "Detay1": Bellek(47, 4) = "Veri47": Bellek(47, 5) = 3261439.8
Bellek(48, 1) = "Ana3": Bellek(48, 2) = "Alt1": Bellek(48, 3) = "Detay1": Bellek(48, 4) = "Veri48": Bellek(48, 5) = 1790893.08
Bellek(49, 1) = "Ana3": Bellek(49, 2) = "Alt1": Bellek(49, 3) = "Detay2": Bellek(49, 4) = "Veri49": Bellek(49, 5) = 2761232.85
Bellek(50, 1) = "Ana3": Bellek(50, 2) = "Alt1": Bellek(50, 3) = "Detay2": Bellek(50, 4) = "Veri50": Bellek(50, 5) = 5924582.48
Bellek(51, 1) = "Ana3": Bellek(51, 2) = "Alt1": Bellek(51, 3) = "Detay2": Bellek(51, 4) = "Veri51": Bellek(51, 5) = 4680056.57
Bellek(52, 1) = "Ana3": Bellek(52, 2) = "Alt2": Bellek(52, 3) = "Detay1": Bellek(52, 4) = "Veri52": Bellek(52, 5) = 8262255.19
Bellek(53, 1) = "Ana3": Bellek(53, 2) = "Alt2": Bellek(53, 3) = "Detay1": Bellek(53, 4) = "Veri53": Bellek(53, 5) = 8348171.71
Bellek(54, 1) = "Ana3": Bellek(54, 2) = "Alt2": Bellek(54, 3) = "Detay1": Bellek(54, 4) = "Veri54": Bellek(54, 5) = 4411146.64
Bellek(55, 1) = "Ana3": Bellek(55, 2) = "Alt2": Bellek(55, 3) = "Detay1": Bellek(55, 4) = "Veri55": Bellek(55, 5) = 7988843.92
Bellek(56, 1) = "Ana3": Bellek(56, 2) = "Alt2": Bellek(56, 3) = "Detay2": Bellek(56, 4) = "Veri56": Bellek(56, 5) = 3303008.08
Bellek(57, 1) = "Ana3": Bellek(57, 2) = "Alt2": Bellek(57, 3) = "Detay2": Bellek(57, 4) = "Veri57": Bellek(57, 5) = 2268660.07
Bellek(58, 1) = "Ana3": Bellek(58, 2) = "Alt3": Bellek(58, 3) = "Detay1": Bellek(58, 4) = "Veri58": Bellek(58, 5) = 2103686.33
Bellek(59, 1) = "Ana3": Bellek(59, 2) = "Alt3": Bellek(59, 3) = "Detay1": Bellek(59, 4) = "Veri59": Bellek(59, 5) = 2451739.31
Bellek(60, 1) = "Ana3": Bellek(60, 2) = "Alt3": Bellek(60, 3) = "Detay1": Bellek(60, 4) = "Veri60": Bellek(60, 5) = 8605892.66
Bellek(61, 1) = "Ana3": Bellek(61, 2) = "Alt3": Bellek(61, 3) = "Detay2": Bellek(61, 4) = "Veri61": Bellek(61, 5) = 8077797.89
Bellek(62, 1) = "Ana3": Bellek(62, 2) = "Alt3": Bellek(62, 3) = "Detay2": Bellek(62, 4) = "Veri62": Bellek(62, 5) = 5833590.03
Bellek(63, 1) = "Ana3": Bellek(63, 2) = "Alt3": Bellek(63, 3) = "Detay2": Bellek(63, 4) = "Veri63": Bellek(63, 5) = 1146233.08
Bellek(64, 1) = "Ana3": Bellek(64, 2) = "Alt4": Bellek(64, 3) = "Detay1": Bellek(64, 4) = "Veri64": Bellek(64, 5) = 979738.24
Bellek(65, 1) = "Ana3": Bellek(65, 2) = "Alt4": Bellek(65, 3) = "Detay1": Bellek(65, 4) = "Veri65": Bellek(65, 5) = 1877751.35
Bellek(66, 1) = "Ana3": Bellek(66, 2) = "Alt4": Bellek(66, 3) = "Detay2": Bellek(66, 4) = "Veri66": Bellek(66, 5) = 3398060.8
Bellek(67, 1) = "Ana3": Bellek(67, 2) = "Alt4": Bellek(67, 3) = "Detay2": Bellek(67, 4) = "Veri67": Bellek(67, 5) = 4166483.88
Bellek(68, 1) = "Ana3": Bellek(68, 2) = "Alt5": Bellek(68, 3) = "Detay1": Bellek(68, 4) = "Veri68": Bellek(68, 5) = 4629800.32
Bellek(69, 1) = "Ana3": Bellek(69, 2) = "Alt5": Bellek(69, 3) = "Detay1": Bellek(69, 4) = "Veri69": Bellek(69, 5) = 7005143.17
Bellek(70, 1) = "Ana3": Bellek(70, 2) = "Alt5": Bellek(70, 3) = "Detay1": Bellek(70, 4) = "Veri70": Bellek(70, 5) = 1282498.84
Bellek(71, 1) = "Ana3": Bellek(71, 2) = "Alt5": Bellek(71, 3) = "Detay2": Bellek(71, 4) = "Veri71": Bellek(71, 5) = 5338730.81
Bellek(72, 1) = "Ana3": Bellek(72, 2) = "Alt5": Bellek(72, 3) = "Detay2": Bellek(72, 4) = "Veri72": Bellek(72, 5) = 2895624.64
Bellek(73, 1) = "Ana3": Bellek(73, 2) = "Alt5": Bellek(73, 3) = "Detay2": Bellek(73, 4) = "Veri73": Bellek(73, 5) = 4334571.36
Bellek(74, 1) = "Ana4": Bellek(74, 2) = "Alt1": Bellek(74, 3) = "Detay1": Bellek(74, 4) = "Veri74": Bellek(74, 5) = 4106316.57
Bellek(75, 1) = "Ana4": Bellek(75, 2) = "Alt1": Bellek(75, 3) = "Detay1": Bellek(75, 4) = "Veri75": Bellek(75, 5) = 9030988.22
Bellek(76, 1) = "Ana4": Bellek(76, 2) = "Alt1": Bellek(76, 3) = "Detay2": Bellek(76, 4) = "Veri76": Bellek(76, 5) = 7130279.54
Bellek(77, 1) = "Ana4": Bellek(77, 2) = "Alt1": Bellek(77, 3) = "Detay2": Bellek(77, 4) = "Veri77": Bellek(77, 5) = 7570295.33
Bellek(78, 1) = "Ana4": Bellek(78, 2) = "Alt1": Bellek(78, 3) = "Detay2": Bellek(78, 4) = "Veri78": Bellek(78, 5) = 4804747.1
Bellek(79, 1) = "Ana4": Bellek(79, 2) = "Alt2": Bellek(79, 3) = "Detay1": Bellek(79, 4) = "Veri79": Bellek(79, 5) = 9193770.89
Bellek(80, 1) = "Ana4": Bellek(80, 2) = "Alt2": Bellek(80, 3) = "Detay1": Bellek(80, 4) = "Veri80": Bellek(80, 5) = 1195440.29
Bellek(81, 1) = "Ana4": Bellek(81, 2) = "Alt2": Bellek(81, 3) = "Detay1": Bellek(81, 4) = "Veri81": Bellek(81, 5) = 2613682.75
Bellek(82, 1) = "Ana4": Bellek(82, 2) = "Alt2": Bellek(82, 3) = "Detay2": Bellek(82, 4) = "Veri82": Bellek(82, 5) = 8042671.68
Bellek(83, 1) = "Ana4": Bellek(83, 2) = "Alt2": Bellek(83, 3) = "Detay2": Bellek(83, 4) = "Veri83": Bellek(83, 5) = 4140326.98
Bellek(84, 1) = "Ana4": Bellek(84, 2) = "Alt2": Bellek(84, 3) = "Detay2": Bellek(84, 4) = "Veri84": Bellek(84, 5) = 6789133.55
Bellek(85, 1) = "Ana4": Bellek(85, 2) = "Alt2": Bellek(85, 3) = "Detay2": Bellek(85, 4) = "Veri85": Bellek(85, 5) = 7599790.1
Bellek(86, 1) = "Ana4": Bellek(86, 2) = "Alt3": Bellek(86, 3) = "Detay1": Bellek(86, 4) = "Veri86": Bellek(86, 5) = 9619531.63
Bellek(87, 1) = "Ana4": Bellek(87, 2) = "Alt3": Bellek(87, 3) = "Detay1": Bellek(87, 4) = "Veri87": Bellek(87, 5) = 1786935.33
Bellek(88, 1) = "Ana5": Bellek(88, 2) = "Alt3": Bellek(88, 3) = "Detay1": Bellek(88, 4) = "Veri88": Bellek(88, 5) = 3640186.79
Bellek(89, 1) = "Ana5": Bellek(89, 2) = "Alt3": Bellek(89, 3) = "Detay1": Bellek(89, 4) = "Veri89": Bellek(89, 5) = 6736466.88
Bellek(90, 1) = "Ana5": Bellek(90, 2) = "Alt3": Bellek(90, 3) = "Detay2": Bellek(90, 4) = "Veri90": Bellek(90, 5) = 9003338.81
Bellek(91, 1) = "Ana5": Bellek(91, 2) = "Alt3": Bellek(91, 3) = "Detay2": Bellek(91, 4) = "Veri91": Bellek(91, 5) = 7708327.77
Bellek(92, 1) = "Ana5": Bellek(92, 2) = "Alt3": Bellek(92, 3) = "Detay2": Bellek(92, 4) = "Veri92": Bellek(92, 5) = 1492457.39
Bellek(93, 1) = "Ana5": Bellek(93, 2) = "Alt3": Bellek(93, 3) = "Detay2": Bellek(93, 4) = "Veri93": Bellek(93, 5) = 2729468.35
Bellek(94, 1) = "Ana5": Bellek(94, 2) = "Alt3": Bellek(94, 3) = "Detay2": Bellek(94, 4) = "Veri94": Bellek(94, 5) = 806913.38
Bellek(95, 1) = "Ana6": Bellek(95, 2) = "Alt1": Bellek(95, 3) = "Detay1": Bellek(95, 4) = "Veri95": Bellek(95, 5) = 7577292.92
Bellek(96, 1) = "Ana6": Bellek(96, 2) = "Alt1": Bellek(96, 3) = "Detay2": Bellek(96, 4) = "Veri96": Bellek(96, 5) = 6329758.17
Bellek(97, 1) = "Ana6": Bellek(97, 2) = "Alt1": Bellek(97, 3) = "Detay3": Bellek(97, 4) = "Veri97": Bellek(97, 5) = 3478326.8
Bellek(98, 1) = "Ana6": Bellek(98, 2) = "Alt2": Bellek(98, 3) = "Detay1": Bellek(98, 4) = "Veri98": Bellek(98, 5) = 3904714.58
Bellek(99, 1) = "Ana6": Bellek(99, 2) = "Alt2": Bellek(99, 3) = "Detay2": Bellek(99, 4) = "Veri99": Bellek(99, 5) = 9729666.71
Bellek(100, 1) = "Ana6": Bellek(100, 2) = "Alt2": Bellek(100, 3) = "Detay3": Bellek(100, 4) = "Veri100": Bellek(100, 5) = 4175992.01
Veriler1() = Bellek()
End Sub
Sub Veri_Kur2()
On Error Resume Next
ReDim Bellek(1 To 100, 1 To Hafta)
For i = 1 To 100
For ii = 1 To Hafta
Bellek(i, ii) = VBA.Format(Veriler1(i, 5) / Hafta, "#.##0,00")
Next ii
Next i
Veriler2() = Bellek()
End Sub

'Module1

Option Explicit
Public Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Public Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Public IPic(15) As Byte
Public Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}" 'It may take a few seconds, please wait.
Public Const URL1 As String = "http://2.bp.blogspot.com/-G3KDFVP7V0Q/TcUhtYtMifI/AAAAAAAACw0/Ta6mFpFJtZ8/s1600/39.bmp" 'Microsoft Office Excel® Kod Kılavuzu [PBİD BackroundPicture]
Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg" 'Microsoft Office Excel® Kod Kılavuzu [PBİD Icon]
Public Const URL3 As String = "http://2.bp.blogspot.com/-1hXHEGgFNVw/TitNEweGo9I/AAAAAAAACyQ/UrAlITheBnI/s1600/Saatli_D%25C3%25BCnya_jpg.jpg" 'Microsoft Office Excel® Kod Kılavuzu [Harita]
Public Const URL4 As String = "http://3.bp.blogspot.com/-bwRSkWprDNs/Tiszo7ThzFI/AAAAAAAACyI/SGmlxMCgQWo/s1600/Mercek_bmp.bmp" 'Microsoft Office Excel® Kod Kılavuzu [Mercek]
Public URL As String
Sub Form_Aç() 'Open UserForm
On Error Resume Next
Load UserForm1
End Sub
Public Function Resim(URL) As Picture 'Picture load frome web address...
On Error Resume Next
CLSIDFromString StrPtr(ClsID), IPic(0)
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim
End Function
'Sub References_List()
' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References
' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1
' Next Eleman
'End Sub

'Class1

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Pencere_Düzeni As Long, ByVal Mesaj As Long, ByVal Değişken1 As Long, Değişken2 As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Class_Adı As String, ByVal Ekran_Adı As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Pencere As Long, ByVal Koordinat As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Pencere_Düzeni As Long, ByVal Koordinat As Long, ByVal Yeni_Boyut As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal Pencere As Long, ByVal Eylem As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal Pencere As Long) As Long
Public Property Set Ekran1(Ekran As Object)
On Error Resume Next
Simge_Yarat Ekran, FindWindow(vbNullString, Ekran.Caption), Ekran.ImageList1.ListImages(1).Picture
SetWindowLong FindWindow(vbNullString, Ekran.Caption), (-16), GetWindowLong(FindWindow(vbNullString, Ekran.Caption), (-16)) Or &H80000 Or &H20000 Or &H10000
ShowWindow FindWindow(vbNullString, Ekran.Caption), 3
DrawMenuBar FindWindow(vbNullString, Ekran.Caption)
End Property
Private Function Simge_Yarat(Form As Object, Başlık As Long, EkranSimge As Long)
On Error Resume Next
Call SendMessage(Başlık, &H80, 0&, ByVal EkranSimge)
Call SendMessage(Başlık, &H80, 1&, ByVal EkranSimge)
End Function

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul