• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

toto makro funguje na sposob tak ze co mas selecnute tak to vynasoby x2. Je to viac unuverzalnejsie ako pisat do makra:
range("B1") = range("B1") * 2
range("B2") = range("B2") * 2
range("B3") = range("B3") * 2
or

cells(1,2) = cells(1,2) * 2
cells(2,2) = cells(2,2) * 2
cells(3,2) = cells(3,2) * 2

makro:

Sub test()
Dim aCell As Range
For Each aCell In ActiveSheet.Range(Selection.Address)
Range(aCell.Address) = Range(aCell.Address) * 2
Next
End Sub

no nasiel som nejaku metodu ale musim doinstalovat k officu 2010 ... sharepoint

MODI:
http://msdn.microsoft.com/en-us/library/office/aa202819(v=office.11).aspx

Preco ho nemam v office 2010:
http://support.microsoft.com/kb/982760/en-us

... ale zatial som len na zaciatku

mozno su aj ine riesenia :) rad si ich precitam

teraz riesim takyto problem .. mam obrazky tabuliek a potreboval by som z nich vytahat cisla .. a hladam k tomu najlepsie riesenie

da sa pomocou VBA nejak z OCRkovat obrazok??

ja som to riesil takto
pred makrom som ho otvoril:
Sheets(1).Unprotect Password:="test"

a po makre som ho zavrel:
Sheets(1).Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True

ale keby bol lepsi sposob rad si ho precitam :))

no to je otazka na HTML forum :P ale malo by to fungovat podla:

http://support.microsoft.com/kb/197922/en-us

pisal som to na rychlo nemam to skontrolovane ale asi takto:


Sub test()
Dim x As Integer
Dim y As Integer
Dim aFinish As Boolean
Dim aOutput As String

x = 1
y = 1
Do While aFinish > True
aOutput = Cells(12, 13) + x
x = x + 1
If Weekday(aOutput, 2) <> 6 And Weekday(aOutput, 2) <> 7 Then y = y + 1
If y = 30 Then aFinish = True
Loop
Cells(12, 14) = aOutput

End Sub

event mouseUp mouseMove, mouseDown ... pre cell neexistuje ... aspon ja o takom neviem :)

jedine co mozes urobit je ked nieco selectnes tak to nieco spravi


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox (Target.Address)
End Sub

jj google je vsemocny :))

- este pre zaujimavost ten novsi provider vyriesil aj bug s dlzkou nazvu sheetu ... takze uz ho netreba premenovavat

tak uz som to vyriesil su 3. moznosti

2 su tu popisane:
http://support.microsoft.com/kb/319998/en-us

a tretia najlepsia je zmenit providera na:
Microsoft.ACE.OLEDB.12.0

pri novsej verzii sa tento bug uz nestava

Ahojte,

mam problem s memory ... ked pustam v cykle ADODB "jednoduche select" ... v mojom pripade filtrovanie excel tabulky .... tak v 20 cykle to uz zahlti pamat a neviem preco aj po vypnuti excelu to zostava v memory ....netusite preco??


Dim aFilter() As String
Dim backupSheetName As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

If aColumn <> "" Then
'problem name sheet must rename
backupSheetName = cbSheet.Value
Sheets(cbSheet.Value).Name = "Loading01"

strFile = Application.ThisWorkbook.FullName
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open strCon

strSQL = "SELECT " & aColumn & " FROM [Loading01$" & tbRange.Value & "] GROUP BY " & aColumn
rs.Open strSQL, cn

aRow = 0
Do While Not rs.EOF
For bColumn = 0 To rs.Fields.Count - 1
ReDim Preserve aFilter(aRow)
If rs.Fields(bColumn).Value <> "Null" Then
aFilter(aRow) = rs.Fields(bColumn).Value
End If
Next
rs.MoveNext
aRow = aRow + 1
Loop

Me.Controls.Item("cbFilter" & aComboBoxId).Clear
For y = LBound(aFilter) To UBound(aFilter)
Me.Controls.Item("cbFilter" & aComboBoxId).AddItem aFilter(y)
Next

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

'call back name sheet
Sheets("Loading01").Name = backupSheetName
End If

Pre zaujimavost tu hodim svoj tetris :))

- pusta sa cez makro: test
- je tam dobre vidiet ako sa cas da dobre vyuzivat v userform

tak hotovo (2dni v prdeli)

program sa spusta makrom test

- za tu so/ne sa ospravedlnujem ... ja som si nevsimol ze funkcia weekday() ma 1-nedela a 7-sobota na nas kaledar ju trebalo zapisovat weekday(date,2)

Makro:
- je bez sviatkou ale daju sa tam jednoducho doplnit ... ale!!!
- Problem spociva v tom ze vianocne sviatky v tyzdni zozeru vsetky pismena A B C D E ... a to s tymi bodami co si zadal sa neda nikdy urobit (zacykli sa)

- odcyklovanie toho programu sa mi nechce robit (mozes niekde v obehu zadat ze ked uz sa opakuje 1000x tak neh skonci)

tak isto sa zacykli ked udas zle minulorocne pismena (je to logicke skusa mnoho variacii ale co z toho ked ziadna nema sancu zapasovat :))

... kukni sa nato popripade si to prerob podla svojich predstav

no je to na dlho :)) uz som s tym zabil asi 6hodin a dnes uz idem domov zajtra nato kuknem

v com je problem:
- Treba definovat 1. tyzden ktory sa prelina minulim rokom
- pri kazdom novom mesiaci musim doplnat udaje predchadzajuceho mesiaca (dost HARD)
- variacie nahodneho dodania pismen nemusi vzdy sediet takze sa makro musi zopakovat znova .... toto je tiez BRUTUS
- a mnoho dalsich :)))
- tu predlohu co si poslal zle zobrazuje sobotu a nedelu koli tomu som asi 2 hod stratil

ale zajtra to hadam dokoncim

pracujem natom :)) zatial bezuspesne ... ale dnes pri jednej cinnosti kde prichadzaju nove napady ma nieco napadlo do poobedia by som to tu mohol hodit

... ale fakt zaujimava uloha

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse