Microsoft Project - Kolom khusus dibagi antara tugas dan sumber daya?

Latar Belakang

Jadi saya punya proyek yang saya buat di proyek Microsoft. Saya memiliki semua tugas saya dibuat dan sumber daya ditugaskan. Yang ingin saya lakukan adalah menambahkan kolom untuk menangkap lokasi di mana tugas itu terjadi. Tampaknya tidak ada kolom berlabel Lokasi atau yang serupa.

Apa yang saya coba

Untuk alasan ini saya ingin menambahkan kolom berlabel Lokasi . Saya ingin itu dibagi antara tugas dan sumber daya.

Saya menambahkan kolom sebagai text2 dari opsi dan kemudian memberinya judul Lokasi :

Di bawah Penggunaan Sumber Daya, saya memilih text2 dari pilihan kolom saya tetapi tidak ada yang terisi:

Apakah saya melewatkan sesuatu?

Mungkin cara lain untuk mencapai ini adalah jika daftar sumber daya saya menyertakan tempat (lokasi). Jika saya melakukannya dengan cara ini, adakah cara untuk menambahkan hal-hal yang terkait dengan lokasi seperti alamat, nomor telepon, dll?

Apa yang tampak sebagai informasi tugas yang ditampilkan dalam tampilan Penggunaan Sumber Daya sebenarnya adalah informasi penugasan .

Bidang Text2 yang ditampilkan adalah yang dari tugas . Untuk menyulitkan lebih lanjut, ada dua set bidang "khusus" di tingkat penugasan - satu untuk tugas dan satu untuk sumber daya.

Menggunakan makro, Anda bisa menyalin data tingkat tugas ke data tingkat tugas.

Sub UpdateAssignmentInfo()

    Dim asn As Assignment

    ' transfer data to show in the Resource Usage view
    Dim res As Resource
    For Each res In ActiveProject.Resources
        For Each asn In res.Assignments
            asn.Text2 = asn.Task.Text2
        Next asn
    Next res

    ' transfer data to show in the Task Usage view
    Dim tsk As Task
    For Each tsk In ActiveProject.Tasks
        For Each asn In tsk.Assignments
            ' use only ONE of the following:
            ' to show the task's value use
            asn.Text2 = tsk.Text2
            ' to show the resource's value use
            asn.Text2 = asn.Resource.Text2
        Next asn
    Next tsk

End Sub

The loop pertama dalam kode ini salinan data tugas-tingkat ke bidang sumber daya tugas (misalnya bidang yang Anda lihat dalam Sumber Daya tampilan Penggunaan).

The kedua lingkaran salinan data ke bidang tugas tugas (misalnya bidang ditampilkan dalam Task tampilan Penggunaan). Tergantung pada kebutuhan, pilih salah satu asn.Text2 = ...baris dan hapus / komentar-keluar yang lain. Yang pertama akan menggandakan informasi tugas sementara yang kedua akan menampilkan data Text2 dari Sumber itu sendiri (misalnya dari tampilan Lembar Sumber Daya).

Jadi saya menemukan bahwa bidang yang ditugaskan untuk tugas bukan bidang yang sama ditugaskan untuk sumber daya bahkan jika mereka memiliki nama yang sama. Misalnya Text2 untuk sumber daya tidak sama dengan Text2 untuk suatu tugas.

Untuk alasan ini satu-satunya cara untuk menyalin antara dua set adalah melalui penggunaan VBA. Lihat di bawah:

Public Sub copy_task_location_to_resource_location()


  For r = 1 To ActiveProject.Resources.Count
    'iterate through resources
    ActiveProject.Resources(r).Text1 = ""
    ActiveProject.Resources(r).Text2 = ""
    ActiveProject.Resources(r).Text3 = ""
    ActiveProject.Resources(r).Text4 = ""

        For a = 1 To ActiveProject.Resources(r).Assignments.Count
          'iterate through assignments
          'match up with correct task
          For t = 1 To ActiveProject.Tasks.Count
            If ActiveProject.Tasks(t) = ActiveProject.Resources(r).Assignments(a).Task Then
               'copy fields over
               ActiveProject.Resources(r).Assignments(a).Text3 = ActiveProject.Tasks(t).Text2
               ActiveProject.Resources(r).Assignments(a).Text2 = Month(ActiveProject.Tasks(t).Start) & "/" & Day(ActiveProject.Tasks(t).Start)
               ActiveProject.Resources(r).Assignments(a).Text1 = Format(ActiveProject.Tasks(t).Start, "H:mm am/pm")
               ActiveProject.Resources(r).Assignments(a).Text4 = Format(ActiveProject.Tasks(t).Finish, "H:mm am/pm")
               ActiveProject.Resources(r).Assignments(a).Notes = ActiveProject.Tasks(t).Notes
               Exit For
            End If
          Next

       Next

  Next


End Sub

Saya mengulangi sumber daya yang tersedia, kemudian penugasan ke sumber daya tersebut, lalu menemukan tugas penugasan itu. Setelah saya menemukan tautan itu maka saya dapat menyalin data apa pun yang saya inginkan. Di atas hanyalah contoh.

Hasil

Hasilnya adalah saya bisa masuk dalam tugas saya, dan menetapkan sumber daya tugas, tanggal, catatan, dan lokasi:

Setelah dimasukkan, saya sekarang dapat melihat hasil saya dengan dua cara. Saya bisa melihat sendiri, apa yang harus dilakukan semua orang:

Dengan format waktu dan tanggal, sangat mudah dibaca dan sangat teratur

Saya juga dapat melihat hal yang sama berdasarkan tugas:

Ini mengarah ke perencana proyek yang tampak sangat indah yang mudah dimodifikasi.