●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ Part2● at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

750:デフォルトの名無しさん
 07/08/27 14:34:19 
>>743 
> Loopんところでオブジェクトが無いとかって 
> エラーになるんですけどなんでですか？ 
エラーメッセージを正確に書き写せばいいのに。 
簡単な英語もわからないと不便だね。

751:デフォルトの名無しさん
 07/08/27 18:21:56 
エラーって日本語だろ？

752:デフォルトの名無しさん
 07/08/27 20:16:40 
屁理屈ばっかごねてるヴァカ

753:デフォルトの名無しさん
 07/08/28 20:15:47 
Excelのオートフィルタ機能を関数で表したいと思うのですが可能でしょうか 
教えて下さい

754:デフォルトの名無しさん
 07/08/28 22:05:01 
ググレカス

755:デフォルトの名無しさん
 07/08/28 22:05:53 
>>753 
> 可能でしょうか 
 
お答えします､可能です 
やり方は自分で調べてください

756:デフォルトの名無しさん
 07/08/29 09:31:53 
これを日本語訳に直してもらえないでしょうか？ 
 
Sub TTT() 
Dim iR As Integer, iT As Integer, iK As Integer, iM As Integer 
 
For iR = 1 To Cells(1, "A").SpecialCells(xlLastCell).Row 
Select Case Cells(iR, "A") 
Case "高橋" 
iT = iT + 1 
Sheets("高橋").Cells(iT, "A") = Cells(iR, "A") 
Sheets("高橋").Cells(iT, "B") = Cells(iR, "B") 
Case "亀井" 
iK = iK + 1 
Sheets("亀井").Cells(iK, "A") = Cells(iR, "A") 
Sheets("亀井").Cells(iK, "B") = Cells(iR, "B") 
Case "道重" 
iM = iM + 1 
Sheets("道重").Cells(iM, "A") = Cells(iR, "A") 
Sheets("道重").Cells(iM, "B") = Cells(iR, "B") 
End Select 
Next 
End Sub

次ページ