エクセルマクロのチェック依頼の仕事 [人材紹介・人材派遣]
エクセルマクロのチェック依頼に関する仕事・募集案件ページです。クラウドソーシングのランサーズで、Excelマクロ作成・VBA開発に関する最適な外注/発注先をお探しの方、副業案件・求人をお探しのフリーランスの方はまず会員登録がおすすめです。
Excelマクロ作成・VBA開発に関連した他の仕事を探す
見積もり募集の結果
募集期間
2日間
提案数
10件
当選人数
1 件
(募集人数1人)
実際の発注内容
本人確認 実績を積みたいので、低価格のご提案をさせていただきますが、責任をもって丁寧に対応させていただきます。
- 希望時間単価 5,000円~
- 実績 7
- 評価満足率 100 %
- プロジェクト完了率 100%
- 機密保持
- 本人確認
- 電話
プロフィールをご覧いただき、ありがとうございます。 Niwaと申します。 エクセル、マクロ、VBAなどの仕事を中心に応募しています。 まずは実績を積みたいので、低価格のご提案をすることが多くなりますが、 責任をもって丁寧に対応させていただきます。 よろしくお願いいたします。 納期を守ることはもちろん、丁寧なコミュニケーションを心がけております。 ご連絡いただけれ... 続きを読む
見積もり募集の内容
- 依頼主の業種
- 人材紹介・人材派遣
- 提示した予算
- 10,000 円 ~ 20,000 円
- 依頼概要
-
■ 依頼の目的/概要
添付しております、エクセルの並び替えを実施するプログラムコードの確認を
お願いいたします。
①G７列以降最終行までの文字列を半角大文字にします。
→例 s１→S1
②G列を順番に、L3＞L2＞L1＞S5＞S4＞S3＞S2＞S1へ並び替えます。
③最後にA列の数字を数字の若い順番に並べ替えます。
→..Applyで止まってしまい、理由がわからないので
依頼しました。
■ 重視する点/検討基準
スピードを重視します。
コードチェックを行って頂き、修正して頂きたいです。
■ 希望するスキル
・VBA
Sub 並び替え_Click()
Dim ws As Worksheet, rg As Range
Dim i
Dim sh1 As Worksheet
Set ws = Worksheets("データ")
For i = 7 To Cells(Rows.Count, "G").End(xlUp).Row
ws.Cells(i, "G") = StrConv(Cells(i, "G"), vbNarrow + vbUpperCase)
Next i
Set rg = ws.Range("A7", ws.Cells(ws.Rows.CountLarge, "A").End(xlUp))
With ws.Sort
With .SortFields
.Clear
.Add Key:=rg, SortOn:=xlSortOnValues, CustomOrder:="L3,L2,L1,S5,S4,S3,S2,S1", DataOption:=xlSortNormal
.Add Key:=ws.Range("A7").Resize(rg.CountLarge), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
End With
.SetRange rg.Resize(, 7)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlStroke
.Apply
End With
MsgBox "並び替えが完了しました"
End Sub
この仕事に似たExcelマクロ作成・VBA開発の他の仕事を探す
- エリア
- 奈良県