03-3-26 10:38, 27.84 K) 《20》好用的ALT+数字好用的ALT+数字
按住ALT不放，然后再键入一个数字可以达到某些效果，不同的数字会有不同的效果，如ATL+178输入的就是平方， 加179就是立方...... 试试吧
字符集 (128-255) 128 ? 160 [space] 192 à 224 à 129 ? 161 ? 193 á 225 á 130 ? 162 ￠ 194 ? 226 a 131 ? 163 ￡ 195 ? 227 ? 132 ? 164 ¤ 196 ? 228 ? 133 ? 165 ￥ 197 ? 229 ? 134 ? 166 | 198 Æ 230 ? 135 ? 167 § 199 ? 231 ? 136 ? 168 ¨ 200 è 232 è 137 ? 169 ? 201 é 233 é 138 ? 170 a 202 ê 234 ê 139 ? 171 ? 203 ? 235 ? 140 ? 172 ? 204 ì 236 ì 141 ? 173 205 í 237 í 142 ? 174 ? 206 ? 238 ? 143 ? 175 ˉ 207 ? 239 ? 144 ? 176 ° 208 Ð 240 e 145 ' 177 ± 209 ? 241 ? 146 ' 178 2 210 ò 242 ò 147 ? 179 3 211 ó 243 ó 148 ? 180 ′ 212 ? 244 ? 149 ? 181 μ 213 ? 245 ? 150 ? 182 ? 214 ? 246 ? 151 ? 183 ? 215 × 247 ÷ 152 ? 184 ? 216 ? 248 ? 153 ? 185 1 217 ù 249 ù 154 ? 186 o 218 ú 250 ú 155 ? 187 ? 219 ? 251 ? 156 ? 188 ? 220 ü 252 ü 157 ? 189 ? 221 Y 253 y 158 ? 190 ? 222 Þ 254 t 159 ? 191 ? 223 ? 255 ?
《21》我用公式得到的数据如何复制到别的单元格里去(只要数据，不要当中的公式) 如何把用公式得到的数据复制到其它单元格中?
我用公式得到的数据如何复制到别的单元格里去？（只要数据，不要当中的公式） 选择xìng粘贴 《22》Emily版主的数字转英文及yuanshu兄一个不错的的文件(金额、日期大写函数) 请问金额的数字可以转化为英文大写吗如: US$1,234.00 US Dollars One Thousand Two Hundred And Thirty Four Only.
===
Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only $145.00. $59.95 Instant Buy/Download Includes 2 Excel VBA Courses (20 lessons and 5 Workbook Downloads in each)
Back to: Excel Custom Function/Formulas. Got any Excel/VBA Questions? Free Excel Help
See Also: Convert Numbers to Words/Text
Here is a very popular bit of code from Microsoft that will convert any currency amount in a cell to English words. All code and text from below here is the work of Microsoft. Summary This article shows you how to create a sample, user-defined function ncomd ConvertCurrencyToEnglish() to convert a ncomric value to an English word representation. For example, the function will return the following words for the number 1234.56: One Thousand Two Hundred Thirty Four Dollars And Fifty Six Cents The Function Wizard can also be used to enter a custom function in a worksheet. To use the Function Wizard, follow these steps: 1. Click the Function Wizard button, and select User Defined under Function Category. 2. Select ConvertCurrencyToEnglish, and enter your number or cell reference. 3. Click Finish To Create the Sample Functions 1. Insert a module sheet into a workbook. To do this in Microsoft Excel 97 or Microsoft Excel 98, point to Macro on the Toolscomnu, and then click Visual Basic Editor. In the Visual Basic Editor, click Module on the Insertcomnu. In Microsoft Excel
5.0 or 7.0, point to Macro on the Insertcomnu and click Module. 2. Type the following code into the module sheet.
Function ConvertCurrencyToEnglish (ByVal MyNumber)
Dim Temp
Dim Dollars, Cents
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' Convert MyNumber to a string, trimming extra spaces.
MyNumber = Trim(Str(MyNumber))
' Find decimal place.
DecimalPlace = InStr(MyNumber, ".")
' If we find decimal place...
If DecimalPlace > 0 Then
' Convert cents
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
Cents = ConvertTens(Temp)
' Strip off cents from remainder to convert.
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
' Convert last 3 digits of MyNumber to English dollars.
Temp = ConvertHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
' Remove last 3 converted digits from MyNumber.
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
' Clean up dollars.
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
' Clean up cents.
Select Case Cents
Case ""
Cents = " And No Cents"
Case "One"
Cents = " And One Cent"
Case Else
Cents = " And " & Cents & " Cents"
End Select
ConvertCurrencyToEnglish = Dollars & Cents
End Function
Private Function ConvertHundreds (ByVal MyNumber)
Dim Result As String
' Exit if there is nothing to convert.
If Val(MyNumber) = 0 Then Exit Function
' Append leading zeros to number.