Excel 技巧搜集区 “实用篇”

快乐满天星

	A	B	C	D
1				31/03/2012
2
3
4
5	A/C CODE	ABC	DEF	ERG
6	Entertainment	3,500.00	1,200.00	1,200.00
7	travelling	750.00	588.20	600.00
8	transport	75.00
9	Telephone	250.00	150.00	150.00
10
11
12	MAX CLAIMS
13	Entertainment	3,500.00	1,200.00	1,200.00
14	travelling	175.00	105.00	105.00
15	transport	750.00	600.00	600.00
16	Telephone	250.00	150.00	150.00
17	Car allowances	350.00	350.00	350.00

如何让那些EXCEED MAX CLAIMS的CLAIMS的格子FILL IN COLOURS?

stan5575

回复 219# kiam06
我不会 VBA  因为这个去看了很多网页，还是不懂。
需要发我的workbook给你看看吗？

stan5575

你会VBA吗？会有一些东西需要根据你的sheet format而需要更动的。。。

给你一个sample，

Sub tes ...
kiam06 发表于 10-4-2012 01:34 AM

那个是需要更动的？？我试试

dAc1

改了，如下。。。
不过有几个数目的翻译觉得怪怪的。。。
你试试看，尤其是几分几毛的，你来comments ...
kiam06 发表于 17-9-2010 12:39 PM

我的column不够大可以选下一行的column继续这个translation的吗？

vR33

你会VBA吗？会有一些东西需要根据你的sheet format而需要更动的。。。

给你一个sample，

Sub tes ...
kiam06 发表于 10-4-2012 01:34 AM

    问下你。。Excel 可以把数字翻译去英文吗？

如A1 是输入1 , B1 就显示One
A2 输入2 , B2 就显示 Two

输入 100  就 one hundred

佳佳宝贝

[求助] 把012-3456789转换成60123456789

请问如何把数据里的‘ - ’去掉，再加入‘ 6 ’于数据开头？
例如：

012-3456789    →60123456789
013-4567890    →60134567890
014-5678901    →60145678901

50912cmea

[求助] 把012-3456789转换成60123456789
佳佳宝贝 发表于 8-5-2012 01:32 PM

=6&LEFT(A1,3)&RIGHT(A1,7)

zercousy

问下你。。Excel 可以把数字翻译去英文吗？

如A1 是输入1 , B1 就显示One
A2 输入2 , B2 就显 ...
vR33 发表于 23-4-2012 12:20 PM

   http://www.excelforum.com/excel-programming/373378-convert-number-to-words-indian-format.htmlhttp://support.microsoft.com/kb/213360
http://www.yogeshguptaonline.com/2009/07/excel-functions-convert-numbers-into.html

必須 要用 vba..

zercousy

果然强大。。
这个虽然不常用，但也不懂这样接起来。

我有一个难题

有一个sales report 需 ...
vR33 发表于 11-1-2012 03:18 PM

   不一定要会写vba的,你可以record macro 然后就可以了因为一样找的手法一直repeat

rcyaw2

Sub Getlast_po_date_only()

Dim i, j, k, cs, sb As Integer

Dim ll, pl As String

Dim st, dd(16000) As Date

Dim got As Boolean

Const max = 2152

st = Time

j = 1



dd(1) = "30/9/2011"







For i = 2 To max

ll = Worksheets(1).Cells(i, 2).Value & Worksheets(1).Cells(i, 4).Value

k = 1: got = False

    Do While k < j + 1

    pl = Worksheets(2).Cells(k, 2).Value & Worksheets(2).Cells(k, 4).Value

    'If Mid$(pl, 1, Len(pl) - 2) = Mid$(ll, 1, Len(ll) - 2) Then

    If pl = ll Then

        got = True:    cs = cs + 1

        If Worksheets(1).Cells(i, 3).Value > dd(k) Then

        sb = sb + 1

        Worksheets(2).Cells(k, 1) = Worksheets(1).Cells(i, 1).Value

        Worksheets(2).Cells(k, 2) = Worksheets(1).Cells(i, 2).Value

        'Worksheets(2).Cells(k, 3) = "'" & Worksheets(1).Cells(i, 3).Value

        dd(k) = Worksheets(1).Cells(i, 3).Value

        Worksheets(2).Cells(k, 4) = Worksheets(1).Cells(i, 4).Value

        Worksheets(2).Cells(k, 5) = Worksheets(1).Cells(i, 5).Value

        Worksheets(2).Cells(k, 6) = Worksheets(1).Cells(i, 6).Value

        Worksheets(2).Cells(k, 7) = Worksheets(1).Cells(i, 7).Value

      

        End If

    Exit Do

    End If

    k = k + 1

    Loop

   

    If Not got Then

    j = j + 1

    Worksheets(2).Cells(j, 1) = Worksheets(1).Cells(i, 1).Value

    Worksheets(2).Cells(j, 2) = Worksheets(1).Cells(i, 2).Value

    'Worksheets(2).Cells(j, 3) = "'" & Worksheets(1).Cells(i, 3).Value

    dd(j) = Worksheets(1).Cells(i, 3).Value

    Worksheets(2).Cells(j, 4) = Worksheets(1).Cells(i, 4).Value

    Worksheets(2).Cells(j, 5) = Worksheets(1).Cells(i, 5).Value

    Worksheets(2).Cells(j, 6) = Worksheets(1).Cells(i, 6).Value

    Worksheets(2).Cells(j, 7) = Worksheets(1).Cells(i, 7).Value

    End If



Next i

For i = 1 To 4700

Worksheets(2).Cells(i, 3) = dd(i)



Next

MsgBox "Start time : " & st & vbCrLf & "End time   : " & Time

MsgBox " CS : " & cs & vbCrLf & " SB : " & sb



End Sub

rcyaw2

有人看得明白吗？是我花了二十分钟写的。
要帮忙可以电邮我
chakweng    （）@ （）sirijaya。com

rcyaw2

给我一个做练习的机会，需要什么软件开声吧

myjoannetan

如果我要找出7-900-UV的KA号码怎样set呢? 请LZ帮忙或其他的大大知道的可不可以指导....谢谢!

比如以下的我写在A10        B10          在以下C10的要怎样set就会自动出现385呢?
       7-900-UV                        KA                              ???

	A	B	C	D	E	F
1	code	KG	KA	KF	KN	KN
2	4.5-800-UV	329
3	4.5-800-GP	385		386
4	4.5-900-UV	349
5	4.5-900-GP	406		407
6	7-800-UV	371	349
7	7-800-GP	428	420	429	519	465
8	7-900-UV	413	385

myjoannetan

回复 1# woodstock_05

LZ 可以指导233#的问题吗?

dAc1

为什么没有人答我的？

#224的问题。。。。
还有我想问为什么我储存不到excel with vba project的？

zercousy

dAc1 , save with macro format..the macro usually can be save as text file if u want.

myjoannetan,
kindly explain more details about it..

do you meant you want to look up on it?

akers1990

请问字母转数字要怎样输入啊？
S=1
I=2
N=3
G=4
M=5
E=6
T=7
A=8
L=9

要转换成如：
AA=88
ET=67
ALT=897

请问要用那个function和怎样输入啊？
请求帮助～

vR33

原来。。。
恭喜恭喜。。。
kiam06 发表于 22-3-2012 11:23 PM

    其实是skype 的问题。。告知大家，如果遇到这样的问题。

I have been having the same problem but with a little detective work I have traced it - at least in my case - to having Skype Apps installed and active on the active browser.  Once disabled Excel Copy/Paste works normally and the Marching Ants are back.  This was true for IE, Firefox and Chrome, all three.

I checked on Skype Support and it appears to be something they know about and have been working on since sometime last year -at least June 2011.  However they seem to be connecting it with their Skype MS Office Toolbar app which is something I've never used.

In any event, disabling the Skype Browser Apps, Add-ins, Extensions, whatever you want to call them, seems to be the answer - at least for me.  I would be interested to know if others have found whether other browser paraphernalia is having similar effects....?

from
http://www.excelforum.com/excel-2007-help/819895-marching-ants-disappeared-and-forcing-copying-values-only.html

bbcaral

请问我可以在这里问一些关于 excel 的问题吗?

vR33

可以啊，如果我们会，就会回复你


(posted by mobile)